fpc/tests/webtbs/tw1737.pp

{ %version=1.1 }
var
   c: currency;
begin
   c:=234982814;
   writeln(round(c * 100));
end.