Вычислить значение выражения

program x;
uses crt;
var F,a,b,s,t:real;
function h(a,b:real):real;
begin
h:=(a/(1+b*b))+(b/(1+a*a))-(a-b)*(a-b)*(a-b);
end;
function max(a,b:real):real;
 begin
  if a>b then max:=a else
   max:=b;
    end;
begin
writeln('введите ab');
readln(a,b);
begin
F:=h(a,b)+max(sqr(h(a-b, a*b)), sqr(sqr(h(a-b, a+b)))) + h(1,1) ;
end;
writeln('sadas ',F);
end.

program x;
uses crt;
function h(a,b:real):real;
 begin
  h:=a/(1+b*b)+b/(1+a*a)-(a-b)*(a-b)*(a-b);
 end;
function max(a,b:real):real;
 begin
  if a>b then max:=a else max:=b;
 end;
var F,a,b,s,t:real;
begin
clrscr;
writeln('Введите  s,t');
readln(s,t);
{writeln('h(s,t)=',h(s,t):0:2);//если раскомментировать, сами увидите
writeln('h(s-t,s*t)=',h(s-t,s*t):0:2);
writeln('h(s-t,s+t)=',h(s-t,s+t):0:2);}
F:=h(s,t)+max(sqr(h(s-t, s*t)),sqr(h(s-t, s+t))*h(s-t, s+t)) + h(1,1) ;
writeln('sadas ',F:0:2);
readln
end.