5 вариант! решите пожалуйста с меня 100 баллов)

Function f(a,b:real):real; begin if a<0 then f:=a*a+3*a-b else f:=b*b-3*b+a; end; var t,m,s:real; begin write('t = '); readln(t); write('m = '); readln(m); s:=sqr(f(2*t+m,t*m))+sqr(f(3*m,2*t)); writeln('S = ',s); end. Пример: t = 2 m = 3 S = 794