100-tól kezdődően 3-mal csökkenő számsorozat kiíratása előltesztelő (while) ciklussal (Csokkeno.pas) program Csokkeno; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); i:=1; a:=100; a = 100, melyet minden körben csökkentünk while(i<=n) do begin writeln(a); a:=a-3; 3-mal csökkentjük az a változó értékét. i:=i+1; end; END. 100-tól kezdődően 3-mal csökkenő számsorozat kiíratása for ciklussal (CsokkenoV1.pas) program CsokkenoV1; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); a:=100; for i:=1 to n do begin writeln(a); a:=a-3; end; END. 100-tól kezdődően 3-mal csökkenő számsorozat kiíratása hátultesztelő (repeat - until) ciklussal (CsokkenoV2.pas) program CsokkenoV2; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); i:=1; a:=100; repeat writeln(a); a:=a-3; i:=i+1; until(i>n); END.