Question

Составьте, пожалуйста, программу на паскале по алгоритму ​

Answer 1

program dlb;

var

i,n : integer;

a,y : real;

begin

 readln(a,n);

 y:= 1;

 for i := 1 to n do

   y := y * a;

writeln(y);

end.