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

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