program laipsnis;
 
 var a,laip: integer;
 
begin
 
 writeln ('Iveskite skaiciu: ');
 
  readln (a);
 
  laip:=sqr(a);
 
  writeln('pakelus ',a ,' kvadratu, gauname: ',laip);
 
  Readln;
 
end.