Mengingat Program Pascal Yuuk.......

Awal menerima kuliah pascal,,mungkin akan sulit memahami alur dari logika dalam memecahkan masalah....
berikut adalah program-program yang saya dapatkan di awal-awal perjumpaan dengan Pascal....
# program faktorial berbagai versi.....
dengan menggunakan repeat-until
program faktorial;
uses wincrt;
var i, n, f: integer;
begin
readln(n); f:=1; i:=0;
repeat
i:=i+1;
f:=f*i;
until i=n;
writeln(n, 'faktorial = ', f);
end.

dengan menggunakan for
program faktorial;
uses wincrt;
var i, n, f: integer;
begin
readln(n); f:=1;
for i:=1 to n do
    begin
    f:=f*i;
    end;
writeln(n, 'faktorial = ', f);
end. 

dengan menggunakan while
program faktorial;
uses wincrt;
var i, n, f: integer;
begin
readln(n); f:=1;
while i<n do
      begin
      i:=i+1;
      f:=f*i;
      end;
writeln(n, 'faktorial = ', f);
end.