program laipsniai;
var a,b,c,rez : longint;
begin
 Write('Įrašykite laipsnio pagrindą: ');
 Readln(a);
 rez:=1;
 Write('Įrašykite laipsnio rodilkį: ');
 Readln(b);
 begin
   for c:=1 to b do
     begin
       rez:=rez*a;
     end;
 end;
 WriteLn(rez);
 ReadLn;
 end.