Даны действительные числа S, T. Получить g(1.2,S)+g(T,S)-g(2*S,S*T), где g(A,B)= A^2+B^2/A^2+2*A*B+3*B^2+4 описать в программе как функцию — Pascal(Паскаль)

program p3;

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

var
  s, t: real;

begin
  write('S= ');
  readln(s);
  write('T= ');
  readln(t);

  writeln('Otvet= ', g(1.2, s) + g(t, s) - g(2 * s, s * t):0:3);
  readln;

end.