Составте программу в турбо паскале для вычисления площади прямоугольника по введенной длине и введенному периметру.

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

program RectangleArea
va
length, perimeter, width, area: real
begi
write('Enter the length of the rectangle: ')
readln(length)
write('Enter the perimeter of the rectangle: ')
readln(perimeter)
width := (perimeter - 2 * length) / 2
area := length * width
writeln('The area of the rectangle is: ', area:0:2)
end.

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