12. Urobte program na výpočet n – tej mocniny čísla „a“
program mocnina;
uses crt;
var n,b:Integer;
a,v:Real;
begin
clrscr;
v:=1;
writeln ('Zadaj a');
read (a);
writeln ('Zadaj mocninu n');
read (n);
if n>0 then writeln ('mocnina n je kladna');
if n0 then writeln ('cislo je kladne');
if amaximum) then maximum:=cisla[i];
end;
writeln;
writeln('Maximum je : ' , maximum);

readln
end.