Код программы:
var a:real;
begin
writeln('Введите сторону квадрата');
readln(a);
if a < 0 then
writeln('Сторона не может быть отрицательной')
else begin
writeln('Площадь квадрата = ', a*a);
writeln('Периметр квадрата = ', 4 * a);
end;
end.
