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

Var a,b,c:real;
begin
write('Катет и гипотенуза:');
readln(a,c);
b:=sqrt(abs(c*c-a*a));
writeln('b = ',b);
end.

Пример:
Катет и гипотенуза:3 5
b = 4