program while_do;
uses wincrt;
var
i,n:integer;
begin
write('input banyak perulangan: ');readln(n);
i:=1;
while i<=n do
begin
writeln(i, 'batam');
i:=i+1;
end;
readln;
donewincrt;
end.