Program zadanie;
var a,pole:integer;
begin
	writeln('Podaj bok kwadratu:');
	readln(a);
	pole:=a*a;
	writeln('Pole to: ',pole);
	readln;
end.