Belajar looping/perulangan"Bahasa Pemrograman Pascal"

Cara Pertama :

Uses crt;
Var x:integer;
Begin
for x:=1 to 5 Do
writeln(x);
Readln;
end.



Cara Kedua :

Var ; :integer
Begin
For ;:=1 to 10 Do
write (i);
writeln('Belajar Pascal');
Readln;
end.