fpcsrc/tests/webtbs/tw12207.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

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.