mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:38:29 +02:00
14 lines
194 B
ObjectPascal
14 lines
194 B
ObjectPascal
uses
|
|
sysutils;
|
|
var
|
|
s : string;
|
|
begin
|
|
str(currency(25.996):0:2,s);
|
|
if s<>'26.00' then
|
|
halt(1);
|
|
str(currency(99.996):0:2,s);
|
|
if s<>'100.00' then
|
|
halt(1);
|
|
writeln('ok');
|
|
end.
|