Változó növekményes so rozat, előltesztelő (while) ciklussal (ValtozoNovekmenyes.pas) program ValtozoNovekmenyes; uses crt; var i,a,n,k:integer; BEGIN write('n:='); readln(n); i:=1; a:=1; k:=1; k = változó növekmény while(i<=n) do begin writeln(a); a:=a+k; A sorozatelem értékét megnöveljük a változó növekménnyel. k:=k+1; A növekményt mindig növeljük egyel. i:=i+1; end; END. Változó növekményes so rozat, for ciklussal (ValtozoNovekmenyesV1.pas) program ValtozoNovekmenyesV1; uses crt; var i,a,n,k:integer; BEGIN write('n:='); readln(n); a:=1; k:=1; for i:=1 to n do begin writeln(a); a:=a+k; k:=k+1; end; END. Változó növekményes so rozat, hátultesztelő (repeat - until) ciklussal (ValtozoNovekmenyesV2.pas) program ValtozoNovekmenyesV2; uses crt; var i,a,n,k:integer; BEGIN write('n:='); readln(n); i:=1; a:=1; k:=1; repeat writeln(a); a:=a+k; k:=k+1; i:=i+1; until(i>n); END.