program VelkaStejnaCisla; {Ukazka zaokrouhleni hodnot typu real pro velka cisla} var R, S: real; begin R := 1.00000000001E20; S := 1.00000000000E20; writeln(R,S) end.