Kettő hatványainak kiíratása előltesztelő (while) ciklussal (Hatvany.pas) program Hatvany; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); i:=1; a:=1; while(i<=n) do begin writeln(a); a:=a*2; Mivel hatványozunk, az a változó értékét minden ciklusban megszorozzuk 2-vel. i:=i+1; end; END. Kettő hatványainak kiíratása for ciklussal (HatvanyV1.pas) program HatvanyV1; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); a:=1; for i:=1 to n do begin writeln(a); a:=a*2; end; END. Kettő hatványainak kiíratása hátultesztelő (repeat - until) ciklussal (HatvanyV2.pas) program HatvanyV2; uses crt; var i,a,n:integer; BEGIN write('n:='); readln(n); i:=1; a:=1; repeat writeln(a); a:=a*2; i:=i+1; until(i>n); END.