На циклы с параметром 1.дано вещественное число a и целое число n (> 0). вывести a в степени n: an = a•a••a (числа a перемножаются n раз).

function Pow(a:real; n:integer):real;

var

  r:real;

  i:integer;

begin

  r := 1;

  for i := 1 to n do

    r := r * a;

  Pow := r;

end;

 

var

  a:real;

  n:integer;

begin

  write('a = '); readln(a);

  write('n = '); readln(n);

  writeln(a, ' ^ ', n ,' = ', Pow(a, n));

end.

Program stepen;
Var a: real; b, i, n: integer;
Begin
Readln (a, n);
b:=a;
For i:=2 to n do
a:=a*b;
Writeln(a);
Readln;
End.