Составьте программу вычисления выражения (разными способами, применяя каждый из...

1)Это с помощью while

var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
while i

begin
    c:=c * a;
    inc(i);
end;
writeln(c);
readln;
end.

2) Это с помощью repeat

var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
repeat
    c:=c * a;
    inc(i);
until i=p;
writeln(c);
readln;
end.

3) Это с помощью for

var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1;
for i:=1 to p do
    c:=c * a;
writeln(c);
readln;
end.