Даю 70 баллов. 12 вариант. Помогите решить,не могу понять даже как это делать

Var
  x:real;
begin
  x:=-1.23;
  while xlt;=6.23 do begin
    if xlt;0 then
      Writeln(X=,x:5:2,, логарифм определен только для Xgt;0)
    else
      Writeln(X=,x:5:2,, Y=,5.3*sqrt(abs(x*x*x))+cos(ln(x)+12.6));
    x:=x+0.95
    end
end.

Результаты
X=-1.23, логарифм определен только для Xgt;0
X=-0.28, логарифм определен только для Xgt;0
X= 0.67, Y=3.8400812285669
X= 1.62, Y=11.7979662317412
X= 2.57, Y=22.3951919304867
X= 3.52, Y=35.2768703313243
X= 4.47, Y=50.1281674989484
X= 5.42, Y=66.7243610613755