Задача на вычисление значения функции в паскале

[Илья1986]

Здравствуйте! Возникла большая проблема, без которой могу уйти с сессии с хвостовкой по ПЯВУ. Есть задача на вычисление функции на языке паскаль. Сам не смогу решить,поэтому, если не составит особого труда, очень прошу помочь знающих людей.Буду очень благодарен.

[Stilet]

var x,b,a:double;
begin
 x:=1; a:=3;while x<=5 do begin
  if x>4 then b:=x*ln(x*x) else b:=a*cos(x);
  writeln(x:10:2,b:10:2);
 end;
 readln;
end;