Program Pengulangan Nama

program nama;
uses wincrt;
var i,x:integer;
begin
i:=1;
write('masukkan bilangan=');readln(x);
repeat
write(i,' ');
writeln('ernipeb');
i:=i+1;
until i>x;
end.