Program P74;
 { Eroare }
label 1;
var x: real;
begin
   x:=0;
 1:writeln(x);
   x:=x+1e-30;
   goto 1;
end.