Дано вещественное число А и целое число N (>0) Вывести А в степени N: А в степени N=А*А*А*А ... * А (числа А перемножаются N раз).

program zz1;

var n, i:integer; a, p:real;

begin

read (a, n); / /вводим заданные числа a и n через пробел

p:=1; / / задаем начальное значение получаемой степени

for i:=1 to n do / /умножаем а на р n раз

p:=p*a;

write (p); / /выводим полученный ответ на экран

end.