Нужно написать программу на языке Паскаль! Задание: известен периметр прямоугольника и одна сторона из его сторон. Найти площадь прямоугольника?

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

program rectangleArea;

var
perimeter, side, width, length: integer;

begin
writeln('Enter the perimeter of the rectangle: ');
readln(perimeter);

writeln('Enter the length of one side of the rectangle: ');
readln(side);

width := (perimeter - 2 * side) div 2;
length := side;

writeln('The area of the rectangle is: ', width * length);
end.