program laipsnis;
 var a,n: integer;  rez:real;
begin
 writeln ('Iveskite skaiciu: ');
 readln (a);
 writeln ('iveskite kelintu laipsniu kelsite :');
 readln (n);
  rez:= power(a, 1*n);  {jeigu nori kad butu saknis betkokiu laipsniu tai vietoi * bus / }
 writeln('pakelus ',a ,' kvadratu, gauname: ',Round(rez));
  Readln;
end.