Определить площадь прямоугольника, если известно, что одна сторона больше другой на Х см, а периметр равен Р - Pascal ABC

Формулировка задачи:

Определить площадь прямоугольника, если известно, что одна сторона больше другой на Х см, а периметр равен Р.

Решение задачи: «Определить площадь прямоугольника, если известно, что одна сторона больше другой на Х см, а периметр равен Р»

Листинг программы

var a,x,p,s:real;
begin
write('Разность длин сторон x>=0 x=');
readln(x);
write('Периметр p>0 p=');
readln(p);
//2a+2b=p b=a+x 2a+2(a+x)=p
a:=(p-2*x)/4;
s:=a*(a+x);
if s<=0 then write('Введены некорректные данные')
else write('S=',s:0:2)
end.

Объяснение кода листинга программы

Создается переменная a типа real, которая будет использоваться для хранения длины одной из сторон прямоугольника.
Создается переменная x типа real, которая будет использоваться для хранения разности длин сторон прямоугольника.
Создается переменная p типа real, которая будет использоваться для хранения периметра прямоугольника.
Выводится сообщение с просьбой ввести разность длин сторон прямоугольника.
Чтение значения переменной x.
Выводится сообщение с просьбой ввести периметр прямоугольника.
Чтение значения переменной p.
Вычисляется значение переменной a как половина разности периметра и суммы длин сторон прямоугольника.
Вычисляется значение переменной s как произведение a и (a+x).
Проверяется, что значение переменной s больше или равно нулю.
Если значение переменной s меньше нуля, выводится сообщение об ошибке ввода данных.
Иначе выводится значение переменной s.