Напишите программу на языке паскаль "вычислить площадь квадрата если известен периметр"

Для вычисления площади квадрата, зная его периметр, нужно воспользоваться следующим соотношением:

Периметр квадрата $P = 4 \times a$, где $a$ — длина стороны квадрата. Площадь квадрата $S = a^2$.

Исходя из этого, чтобы найти площадь квадрата по его периметру, нужно сначала найти сторону квадрата, а затем вычислить площадь.

Пример программы на языке Паскаль:

pascal
program SquareArea;
var
  P, a, S: real;
begin
  writeln('Введите периметр квадрата:');
  readln(P);
  
  a := P / 4;  { Находим сторону квадрата }
  S := a * a;  { Находим площадь квадрата }

  writeln('Площадь квадрата равна: ', S:0:2);
end.

Пояснение:

1. Программа запрашивает у пользователя периметр квадрата.

2. Затем вычисляется длина стороны квадрата, деля периметр на 4.

3. После этого вычисляется площадь квадрата как квадрат длины его стороны.

4. Результат выводится на экран с точностью до двух знаков после запятой.

Программа работает для любых положительных значений периметра.