Program Compute (input,output);

Var
	i: integer;
	f: float;

BEGIN
  i := 0;
  while  ( f<0.0 ) do
    begin
      f := f + 1.0
    end
end.