fpcsrc/tests/tbs/tb0096.pp


1
2
3
4
5
6

{ Old file: tbs0114.pp }
{ writeln problem (by Pavel Ozerski)                    OK 0.99.1 (PFV) }

begin
 write{ln}(0.997:0:2);
end.