Nama

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