Циклические алгоритмы

Пример.
Вычислить аN. Где N, а целые и N>0.
S=a*a*….*a
N раз

начало
конец
s = 1
i = 1
i<=n
s = s * a
i = i + 1
печать s
ввод а, N
да
нет
Цикл с предусловием
Program Cikl;
var a,n,S,i: integer;
Begin
Writeln('vvedite a ');
Readln(a);
Writeln('vvedite n ');
Readln(n);
S:=1;
i:=1;
While i<=n do
begin
S:=S*a;
i:=i+1;
end;
Writeln('S=',S:6);
Readln;
end.

нет
начало
s = 1
s = s * a
i = n?
Печать s
конец
i = i + 1
i = 0
да
ввод а, N
Цикл с постусловием
Program Cikl2;
var a,n,S,i: integer;
Begin
Writeln('vvedite a ');
Readln(a);
Writeln('vvedite n ');
Readln(n);
S:=1;
i:=0;
repeat
S:=S*a;
i:=i+1;
until i=n;
Writeln('S=',S:6);
Readln;
end.

начало
конец
s = 1
s = s * a
печать s
i=1, n, 1
Ввод a, n
Цикл с параметром
Program Cikl3;
var a,n,S,i: integer;
Begin
Writeln('vvedite a ');
Readln(a);
Writeln('vvedite n ');
Readln(n);
S:=1;
For i:=1 to n do
S:=S*a;
Writeln('S=',S:6);
Readln;
end.