Найти площадь прямоугольника по стороне и диагонали. В паскале

program zz1;

var a, b, n, s:real; / / задаем переменные не целого типа

begin

write (' введите известную сторону прямоугольника '); / / вводим с клавиатуры число

read (a);

write (' введите диагональ прямоугольника '); / / вводим с клавиатуры число

read (n);

b:=sqrt (n*n - a*a); / / вычисляем вторую сторону прямоугольника по теореме Пифагора

s:=a * b; / / вычисляем площадь прямоугольника по формуле

write (' площадь прямоугольника = ', s:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.