Question

составить программу по этой блок-схеме в Паскаль

Answer 1

Решение ниже для данной задачи

Answer 2

program HelloWorld;

var

n, i : integer;
a,y : real;

begin

readln(a,n);

y:=1;
i:=1;

while i<=n do
begin
y:=y*a;
i:=i+1;
end;

writeln(y);

end.