Задача в Паскале4 /Есть решение, нужно объяснение

Привет. Помогите пожалуйста с объяснением.. . перепод будет по полной спрашивать каждую строчку.



Решение

var
s,t:real;
y1,y2,y3,max,y5:real;

function Hab(a,b:real):real;
begin
Hab:=(a/(1+b*b))+(b/(1+a*a))-(a-b)*(a-b)*(a-b);
end;

Begin

write('s=');
readln(s);
write('t=');
readln(t);

y1:=Hab(s,t);

y2:=Hab(s-t,s*t);
y2:=sqr(y2);

y3:=Hab(s-t,s+t)*Hab(s-t,s+t)+Hab(1,1);

if y2>y3 then max:=y2 else max:=y3;

y5:=y1+max;
writeln ('Itogo polu4ili y5=',y5:5:2);
readln
End.