Использование процедур Опции

[FantomasiK]

Даны действительные числа s,t.
надо получить g(1.2,s)+g(t,s)-g(2s-1,st), где g(a,b)=(a*a + b*b)/(a*a + 2ab + 3b*b + 4)
очень надо...помогите, люди добрые..

[Altair]

где g(a,b)=(a*a + b*b)/(a*a + 2ab + 3b*b + 4)

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

в основной программе:

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

переменные опишешь, какие надо и введешь..