1{ %OPT=-Sewh -vwh}
2
3{ Source provided for Free Pascal Bug Report 4898 }
4{ Submitted by "Naj Kejah" on  2006-03-13 }
5{ e-mail: universario@hotmail.com }
6program aFP211p;
7var R : real;
8begin
9  R:=0.0;
10  writeln(r);
11end.
12
13