Pascal ABC
begin
var side := ReadInteger('Введите сторону квадрата:');
Print('Площадь квадрата =', side ** 2);
end.
