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

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