tw1737.pp « webtbs « tests « fpcsrc - fpc - [no description]

summary refs log tree commit diff

path: root/fpcsrc/tests/webtbs/tw1737.pp

blob: 3f48962b487ff92630f4f1852e7e99c39e22da1c (plain)

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