Számok faktoriálisának kiíratása előltesztelő (while) ciklussal (Faktorialis.pas) program Faktorialis; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); i:=1; a:=1; while(i<=n) do begin writeln(a); a:=a*(i+1); A sorozatelem értékét beszorozzuk a ciklusváltozónál egyel nagyobb értékkel. Ezt lerövidthetnénk úgy, hogy a ciklusváltozó növelése után hajtanánk végre a sorozatelem előálltását (ekkor már csak azt írnánk, hogy a=a*i;). i:=i+1; end; END. Számok faktoriálisának kiíratása for ciklussal (FaktorialisV1.pas) program FaktorialisV1; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); a:=1; for i:=1 to n do begin writeln(a); a:=a*(i+1); end; END. Számok faktoriálisának kiíratása hátultesztelő (repeat - until) ciklussal (FaktorialisV2.pas) program FaktorialisV2; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); i:=1; a:=1; repeat writeln(a); a:=a*(i+1); i:=i+1; until(i>n); END.