Розв’язок задачі з Абрамова №431

Всі умови | Умова: Дано дійсні числа s, t. Отримати... (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №431)

program Pr431;
var
  s, t, r : real;
 
  function max(a,b: real): real;
  begin
    if a>b then
      max:=a
    else
      max:=b;
  end;
 
  function h(a,b: real):real;
  begin
    result:= a/(1+sqr(b)) + b/(1+sqr(a)) - power(a - b, 3);
  end;

begin
  readln(s);
  readln(t);
  r:= 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(r:10:2);
  readln;
end.