Question

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

Answer 1

var a,k:real;
n:integer;
begin
readln(a,n);
k:=a;
while n<>1 do begin
n:=n-1;
a:=a*k;
end;
writeln(a);
end.