Arya's Blog

Perulangan mencetak data ke N dengan For to do

program sgt;
uses crt;
var
k:integer;
n:integer;
begin
writeln('masukkan berapa pengulangandari n=');readln(n);
writeln('Cetak urut 1...,',n);
for k:=1 to n do
writeln(k);
readln;
end.