program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var  a,n ,result:integer;
Function Calculapotencia: integer;
var i, x: integer;
begin
    x:=a;
      for i:=0 to n do
     x:= x*a;
      result:=x;
end;
begin
writeln('escreva o numero');
readln(a);
writeln('escreva o expoente');
readln(n);
Calculapotencia;
writeln('result',result);
readln;
end.Elaborar a Função POT ? (potência de uma base à um expoente) em Delphi ? Utilizar um para-faça para multiplicar a ?base? por ela mesma ?expoente? vezes e retornar o valor.
nao erro ai
mas nao da certo a resposta