По известному периметру квадрата Найдите его площадь на программу Pascal

Предыдущий
вопрос Следующий
вопрос

Программа на Pascal для нахождения площади квадрата по известному периметру будет выглядеть следующим образом:

program square_area;
var
perimeter, side, area: real;
begin
write('Введите периметр квадрата: ');
readln(perimeter);
side := perimeter / 4; // Находим длину стороны квадрата
area := side * side; // Находим площадь квадрата
writeln('Площадь квадрата: ', area:0:2);
end.

Программа сначала запрашивает у пользователя периметр квадрата, затем вычисляет длину его стороны и, наконец, площадь квадрата. Результат выводится на экран с точностью до двух знаков после запятой.