Составить программу по блок-схеме в Паскаль 25БАЛОВ

Question

Составить программу по блок-схеме в Паскаль 25БАЛОВ

---

Answer 1

Program n1;
var n,i: integer;
a,y: real;
begin
readln(a,n);
y:=1;
i:=1;
while(i<=n) do<br>begin
y:=y*a;
i:=i+1;
end;
write(y);
end.