На циклы с параметром 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.