Здравствуйте, Колян!
В приложении код, решающий Вашу несложную задачу
Одно не ясно, что делать, если в знаменателе получится ноль (на самом деле не только ноль, но и очень маленькое по модулю число. Если надо, то и это (насколько маленькое число) можно посчитать)

Приложение:
function g(a,b: Real): Real;
var r: Real;
begin
{сначала вычислим знаменатель. Он может быть равен нулю}
r := a*a +2*a*b + 3*b*b + 4;
if r = 0 then
begin
g := 0;
WriteLn('Деление на ноль. Результат неверный');
end
else
g := (a*a + b*b)/r
end;

VAR
s, t: Real;
BEGIN
WriteLn('Введите два действительных числа s и t');
WriteLn(' разделителями могут быть пробелы');
ReadLn(s, t);
WriteLn('g(1.2,s)+g(t,s)-g(2*s-1,s*t) = ',g(1.2,s)+g(t,s)-g(2*s-1,s*t));
END.