1
2
3
4
5
6
7
8
9
10
11
12
13
var a,p:real;
n,i:integer;
begin
write('Введите а:');readln(a);
write('Введите n:');readln(n);
p:=a;
if n<>0 then for i:=2 to n do p:=p*a
else p:=1;
writeln(a,'^',n,'=',p);
end.
1
2
3
4
5
6
7
8
9
10
11
12
13
var a,p:real;
n,i:integer;
begin
write('Введите а:');readln(a);
write('Введите n:');readln(n);
p:=a;
if n<>0 then for i:=2 to n do p:=p*a
else p:=1;
writeln(a,'^',n,'=',p);
end.