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

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); // выводим ответ в формате 5 знаков для всего числа и два знака после точки

end.