Используя функцию, получить значение f(t,0.3*s)+f(s,0.2*t) / Turbo Pascal

[VeB_SteR]

Даны действительные числа s, t. Используя функцию, получить значение f(t,0.3*s)+f(s,0.2*t), вывод результата оформить в виде процедуры, где f(a,b) задан согласно варианту:
http://www.programmersforum.ru/attac...1&d=1399995045

[Stilet]

Хм...

function f(a,b:double):double; var r:double;
begin
 while a<b do begin
  r:=r+(a*a+b*ln(a*a))/(sqr(sin(b))); a:=a+0.000000000001;
 end;
end;

var s,t:double;
begin
 readln(s); readln(t); writeln(f(t,0.3*s)+f(s,0.2*t)); readln;
end.