program comp_err;

  const
     max = 10000;

  var
	i : integer;

begin

  while(i<max) 
  do
	begin
	  	Writeln ('ola mundo');
		i := i+1
	end
end.