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
