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

Программа выглядит таким образом:

Var

a, b, h: real;

begin

writeln ('здесь должна быть нужная длина стороны и диагонали');

readln (a, b);

//нахождение высоты и вычисление площади

h: = sqrt (sqr (b) - sqr (a));

writeln ('площадь: ', a * h);

end.