12. Написать программу нахождения периметра и площади квадрата. Сторона квадрата вводится с клавиатуры.

Решение:

Программа для нахождения периметра и площади квадрата:

program SquareInfo;
var side, perimeter, area: real;
begin
  write('Введите длину стороны квадрата: ');
  read(side);
  perimeter := 4 * side;
  area := side * side;
  write('Периметр квадрата равен: ', perimeter);
  write(' Площадь квадрата равна: ', area);
end.