program while1;
var
	i:integer;
begin
	i:=1;
	while(i<10) do
	begin
		writeln('i = ',i);
		i:=i+1;
	end;
end.