Помогите пожалуйста решить по паскалиABC Гипотенуза прямоугольного треугольника равна с, а один из катетов а. Найти площадь этого треугольника

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