with text_io; use text_io;
procedure Szoroz is
	-- pragma suppress(Range_check);
	i: INTEGER range 1..10000 := 1;
begin
	loop
		Put_Line(INTEGER'IMAGE(i));
		i := i*10; 
	end loop;
end;