Első n darab négyzetszám előltesztelő (while) ciklussal (Negyzetszam.pas) program Negyzetszam; uses crt; var i,a,n,k:integer; BEGIN write('n:='); readln(n); i:=1; a:=1; a = kiírandó szám, azaz sorozatelem k:=3; k = növekmény, amit mindig növelni kell 2-vel while(i<=n) do begin writeln(a); a:=a+k; a-hoz hozzáadjuk az aktuális növekményt k:=k+2; A növekményt növeljük 2-vel. i:=i+1; end; END. Első n darab négyzetszám for ciklussal (NegyzetszamV1.pas) program NegyzetszamV1; uses crt; var i,a,n,k:integer; BEGIN write('n:='); readln(n); a:=1; k:=3; for i:=1 to n do begin writeln(a); a:=a+k; k:=k+2; end; END. Első n darab négyzetszám hátultesztelő (repeat - until) ciklussal (NegyzetszamV2.pas) program NegyzetszamV2; uses crt; var i,a,n,k:integer; BEGIN write('n:='); readln(n); i:=1; a:=1; k:=3; repeat writeln(a); a:=a+k; k:=k+2; i:=i+1; until(i>n); END.