program p07;
uses Crt;

var  a,vysledek:real;
            N,i:integer;

begin
clrscr;
write('Vloz cislo a : ');
readln(a);
write('Vloz cislo N : ');
readln(N);
vysledek:=1;
for i:=1 to N do vysledek:=vysledek*a;
writeln('a na N je ',vysledek:5:3);
repeat until keypressed;
end.