program qq;
var a,s:integer;
begin
writeln('Введите сторону квадрата');
read(a);
s:=a*a;
writeln('Площадь квадрата =',s);
end.
Объяснение:
Да
