program ELEVAZIONE_A_POTENZA(input,output);
(***************************************************************************)
function POT(fpa,fpb:integer):real;
(* per richiamare la funzione potenza l'utente del programma deve *)
(* scrivere : ' POT(A,B) ' dove 'A' e' la base e 'B' e' l'esponente *)
var
fpc,fpd:integer;
begin
fpd:=1;
for fpc:=1 to fpb do
fpd:=fpd*fpa;
pot:=fpd
end;
(***************************************************************************)
begin
writeln(pot(2,3))
end.