как вычислить значение выражения используя подпрограмму-функцию F(x.y) - Delphi

[ыфынф]

g=(sqrt(a*a+b*b+1)+sqrt(a*a+b*b+4))/(sqrt(a*a+b*b+c*c))
функция пользователя f(x, y, z)= sqrt x*x+y*y+z*z
данные для проверки a=3 , b=4 , c=5 , g = 1.4826876
в консольном приложении