program one;
var
a,p : real;
N,i : integer;
begin
p:= 1;
writeln('Введите число, которое мы будем возводить в степень: ');
readln(a);
writeln('Введите степнь, в которую Вы хотите возвести число');
readln(N);
for i := 1 to N do
p := p * a;
write(p);
end.
program one;
var
a,p : real;
N,i : integer;
begin
p:= 1;
writeln('Введите число, которое мы будем возводить в степень: ');
readln(a);
writeln('Введите степнь, в которую Вы хотите возвести число');
readln(N);
for i := 1 to N do
p := p * a;
write(p);
end.