Составьте программу площади треугольника, если известен катет и гипотенуза. заранее )

Var a,b,c :real;beginwrite('Введите значение катета: ');readln(a);write('Введите значение гипотенузы:');readln(b);c:=sqrt(b*b-a*a);writeln('Значение второго катета = ',c);end.