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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.