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

Var
  a, b, h: real;

begin
  writeln('Введите длину стороны и диагонали');
  readln(a, b);
  //находим высоту и вычисляем площадь
  h := sqrt(sqr(b) - sqr(a));
  writeln('Площадь: ', a * h);
end.