Вычислить значения функции. (Pascal). 35 балов

Const
  C = -5;
  M = 10;
  Step = 1.5;
Var x : Real;
Begin
  x:=C;
  Repeat
    Write('x = ',x:6:2,'  L = ');
    If xgt;5 then Writeln((x+x*x+x*x*x)/10:6:2) else
      If xlt;-1 then Writeln(sqr(sin(x))+abs(x):6:2) else
        Writeln(100:6);
    x:=x+Step;
  Until xgt;M;
end.