Процедуры и функции

[krg49]

Даны действительные числа s,t. Получить g(1.2,s)+g(t,s)-g(2s-1,s*t) ,

где

g(a,b)= (a^2+b^2)/( a^2+2*a*b+3*b^2+4)

помогите пжл на DELPHI(((

[Хыиуду]

function g(a,b:real):real
begin
g:=(a*a+b*b)/(a*a+2*a*b+2*b*b+4);
end;

writeln(g(1.2,s)+g(t,s)-g(2s-1,s*t) );