Elettronica

else writeln('Risulta 0')
else if esp = 0 then witeln('Risulta 1')
else Begin
pot : = 1;
for i : = 1 to abs(esp) do
pot : = pot*n;
if esp < 0 then pot : = 1/pot;
writeln('Il risultato и ',pot:10:3)
end;
repeat until keypressed;
end.
~