mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:08:22 +02:00
15 lines
254 B
ObjectPascal
15 lines
254 B
ObjectPascal
uses
|
|
SysUtils;
|
|
var
|
|
s: string;
|
|
c: currency;
|
|
begin
|
|
c:=Currency(0.12) + Currency(0.14);
|
|
s:=CurrToStr(c);
|
|
s:=StringReplace(s, FormatSettings.DecimalSeparator, '.', []);
|
|
writeln('s=', s);
|
|
if s <> '0.26' then
|
|
Halt(1);
|
|
writeln('OK');
|
|
end.
|