program abb;
var
a,b:integer;
begin
writeln('Введите сторону квадрата');
read(a);
b:=(a*a);
writeln('Пощадь квадрата равна ',b);
end.