Вычислить площадь прямоугольника, если заданы его диагональ d b сторона a. (Информатика!)

var d,a:real;begin  writeln('Введите  длину диагонали: '); readln(d);  writeln('Введите длину стороны: '); readln(a);  writeln('Площадь прямоугольника: ', sqrt(sqr(d)-sqr(a))*a);end.Тестовое решение:Введите  длину диагонали: 5Введите длину стороны: 4Площадь прямоугольника: 12