Деятельность государства, его органов, общественных объединений и организаций, граждан по предупреждению преступлений как эффективное

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.