Első 10 darab egész szám kiíratása előltesztelő (while) ciklussal (Elso10Szam.pas) program Elso10Szam; uses crt; var i, n:integer; Egész számokkal dolgozunk, ezért integer-t adunk meg a változódeklarációban. BEGIN n:=10; n = sorozatelemek száma i:=1; i = ciklusváltozó, valamint a kiirandó szám while(i<=n) do begin writeln(i); Kiírjuk az i aktuális értékét a writeln metódussal, mely a kiírás után sort is tör. i:=i+1; end; END. Első 10 darab egész szám kiíratása for ciklussal (Elso10SzamV1.pas) program Elso10SzamV1; uses crt; var i, n:integer; BEGIN n:=10; for i:=1 to n do begin A Pascal for ciklusában nem kell megadni a ciklusváltozó növelését, mivel ez magában foglalja. writeln(i); end; END. Első 10 darab egész szám kiíratása hátultesztelő (repeat - until) ciklussal (Elso10SzamV2.pas)
program Elso10SzamV2; uses crt; var i, n:integer; BEGIN n:=10; i:=1; repeat writeln(i); i:=i+1; until(i>n); A Pascal hátultesztelő ciklusánál megfordul a ciklusfeltétel, mivel itt kilépési feltételt kell megadni. END.