Első 10 darab páros szám kiíratása előltesztelő (while) ciklussal (Elso10ParosSzam.pas) program Elso10ParosSzam; uses crt; var i,n,a:integer; BEGIN n:=10; i:=1; a:=2; a = kiírandó érték, ami jelen esetben 2, mivel ez az első pozitív páros szám while(i<=n) do begin writeln(a); a:=a+2; Megnöveljük az a változó értékét 2-vel, így a következő páros számot kapjuk. i:=i+1; end; END. Első n darab páros szám kiíratása előltesztelő (while) ciklussal (ElsoNParosSzam.pas)
program ElsoNParosSzam; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); i:=1; a:=2; while(i<=n) do begin writeln(a); a:=a+2; i:=i+1; end; END. Első n darab páros szám kiíratása for ciklussal (ElsoNParosSzamV1.pas) program ElsoNParosSzamV1; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); a:=2; for i:=1 to n do begin writeln(a); a:=a+2; end; END. Első n darab páros szám kiíratása hátultesztelő (repeat - until) ciklussal (ElsoNParosSzamV2.pas) program ElsoNParosSzamV2; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); i:=1; a:=2; repeat writeln(a); a:=a+2; i:=i+1; until(i>n); END.