ЦИКЛ С ПАРАМЕТРОМ

дано число а, возвести в степень n

var i, a, n, c: integer;

begin

write('a=');

readln(a);

write('n=');

readln(n);

c:=a;

for i:=1 to n-1 do

c:=c*a;

write(c);

end.