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

// PascalABC.NET 3.0, сборка 1128
var
  a,b,c:real; //a,b- катеты, с-гипотенуза
begin
  Write('Введите через пробел длины катетов треугольника: ');
  Read(a,b);
  c:=sqrt(a*a+b*b);
  Writeln('Длина гипотенузы ',c:0:3,', площадь треугольника ',a*b/2:0:3)
end.

Тестовое решение:
Введите через пробел длины катетов треугольника: 3.7 5.4
Длина гипотенузы 6.546, площадь треугольника 9.990