Задача с использованием функций

[vanookay]

Написать программу для решения поставленной задачи с использованием функций
Безымянный.png

[newerow1989]

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

var s,t,gg:real;
begin
   Write('s = '); Readln(s);
   Write('t = '); Readln(t);
   gg:=g(1.2,s)+g(t,s)-g(2*s-1,s*t);
   Writeln(gg:5:5);
   Readln;
end.