Подпрограммы. Процедуры и функции
 

program p3;
var s,t:real;
function g(a,b:real);
begin
g:=(sqr(a)+sqr(b))/(sqr(a)+(2*a*b)+(3*sqr(b))+4);
end;
write('s=');readln(s);
write('t=');readln(t);
writeln('otvet=',g(1.2,s)+g(2*s,s*t):0:3);
readln;
end.
помогите пожалуйста.....

Пожалуйста. Отсутствует формат идентификатора функции. У Вас:

function g(a,b:real);

Надо:

function g(a,b:real):real;

И да, еще не вижу открывающего begin в теле программы.

Короче говоря, надо так:

спасибо что нашли ошибку...очень благодарна....