freepascal.compiler/tests/tbs/tb0096.pp

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

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