{ %OPT=-MObjFPC }

program Project1;
type
  c = type currency;
var
  a: c;
begin
  a:=currency(1);
end.