Question

Помогите составить программу решения задачи в паскаль АВС.
Дано вещественное число А и целое числоN( больше 0).Найти А в степени N= А*А*А...*А ( числа А перемножаются N раз)

Answer 1

program pps;
var a,rezult:real;   
n,i:integer;
begin
writeln('a='); readln(a);
writeln('n='); readln(n);
rezult:=1;
for i:=1 to n do
rezult:=rezult*a;
writeln('rezult=',rezult);
end.