Exercicio 03 Prova 03 - TP

03 - Criar um programa que receba dois numeros: A e B . Este programa devera conter um subprograma para fazero calculo onde o numero A deve ser elevado ao numero B.

program prova03ex03;
uses crt;
procedure expo(numero,exp:integer);
var cont,vlr:integer;
begin
vlr:=numero;
if exp=0 then
vlr:=1
else
if exp=1 then
vlr:=numero
else
for cont:=(exp-1) downto 1 do
begin
vlr:=vlr*numero;
end;
writeln;
writeln(numero,' Elevado a ',exp,' = ',vlr);
end;
var numero,exp:integer;
begin
clrscr;
write('Digite um numero inteiro: ');
readln(numero);
write('Digite o exp p/ o calculo :');
readln(exp);
while exp<0 do
begin
write('Expoente Invalido! Redigite...: ');
readln(exp);
end;
expo(numero,exp);
readln;
end.