{Desenvolver um programa para ler dois numeros e chamar
uma função que retorna a potência do 1º numro elevado
ao 2º.}
Program Pzim ;
var
n1,n2:integer;
r_pot:real;
//inicio da função
function pot(x1,x2:integer):real; // recebe variaveis inteiras e a resposta é do tipo real
begin
pot:= exp(x2*ln(x1)); // função de potencia existente no pascal
end;
//fim da função
//inicio do algoritmo
Begin
writeln('Digite o primeiro número : '); // solicita o primeiro numero
readln(n1); // recebe n1
writeln('Digite o segundo número : '); // solicita o segundo numero
readln(n2); // recebe n2
r_pot:=pot(n1,n2); // atribui a variavel r_pot, o resultado da função pot;
// em função, chamamos a função e atribuimos o seu resultado,
// direto na variavel
writeln(' - ',n1,' elevado a ',n2,' é = ',r_pot:4:2);
{exibe o a rsposta}
End.
