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

const h=1.5; var c,m,x,l:real; i,n:integer; begin write('C='); readln(c); write('M='); readln(m); x:=c-h; n:=round((m-c)/h)+1; writeln('  x      L'); for i:=1 to n do  begin  x:=x+h;  if x<-1     then l:=sin(x)*sin(x)+abs(x)     else if x<=5 then l:=100 else l:=(x+x*x+x*x*x)/10;  writeln(x:4:1,'  ',l:7:3);  end; end. Пример: C=-3 M=9   x      L -3.0    3.020 -1.5    2.495  0.0  100.000  1.5  100.000  3.0  100.000  4.5  100.000  6.0   25.800  7.5   48.563  9.0   81.900