Решить по паскалиabc гипотенуза прямоугольного треугольника равна с, а один из катетов а. найти площадь этого треугольника

Var a,b,c,S:real;
begin
writeln('введите гипотенузу треугольника ');
readln(a);
writeln(введите катет треугольника ')
readln(b);
c:=sqrt(sqr(a)-sqr(b));
S:=(c*b)/2;
writeln('площадь треугольника S=',S);
end.