Вычислить площадь прямоугольника по известным стороне и диагонали. Нужно написать алгоритм на языке Паскаль.

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

program areaRectangle;

var
side1, side2, diagonal, area: real;

begin
writeln('Введите значение первой стороны прямоугольника:');
readln(side1);

writeln('Введите значение второй стороны прямоугольника:');
readln(side2);

writeln('Введите значение диагонали прямоугольника:');
readln(diagonal);

area := (side1 * side2) / 2;

writeln('Площадь прямоугольника: ', area:0:2);
end.