var i,a,b: Int64; x: Double; x0: Extended; LX: int64 = 9999999999; f: Text; begin AssignFile(f, 'out.txt'); Rewrite(f); i:= 0; while i < LX do begin a:=round(i+5/10); x0:=i/100+5/1000; x:= 100*x0; b:=round(x); if a<>b then begin Writeln(f, i:3, x0:27:20,' -> ',b/100:1:5); break; end; inc(i); end; CloseFile(f); end.