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

Question

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

---

Answer 1

Function f(a,b:real):real;
begin
if a<0 then f:=a*a+3*a-b else f:=b*b-3*b+a;<br>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