Сделаем маленькое преобразование: (x³-x²)/4 = x²(x-1)/4Это потому, что создатель Паскаля, Н.Вирт, перемудрил, не пожелав снабдить язык операцией возведения в степень, только квадрат определил.var x,y:real;begin x:=-3; while x<=3 do begin if x<-1 then y:=sqr(sin(x)) else if x>1 then y:=cos(x/2) else y:=x*x*(x-1)/4; Writeln('X=',x:5:2,', Y=',y); x:=x+0.25 endend.РезультатыX=-3.00, Y=0.019914856674817X=-2.75, Y=0.14566511285437X=-2.50, Y=0.358168907268387X=-2.25, Y=0.60539789971539X=-2.00, Y=0.826821810431806X=-1.75, Y=0.968228343645398X=-1.50, Y=0.994996248300223X=-1.25, Y=0.900571807773467X=-1.00, Y=-0.5X=-0.75, Y=-0.24609375X=-0.50, Y=-0.09375X=-0.25, Y=-0.01953125X= 0.00, Y=0X= 0.25, Y=-0.01171875X= 0.50, Y=-0.03125X= 0.75, Y=-0.03515625X= 1.00, Y=0X= 1.25, Y=0.810963119505218X= 1.50, Y=0.731688868873821X= 1.75, Y=0.640996858163325X= 2.00, Y=0.54030230586814X= 2.25, Y=0.431176516798666X= 2.50, Y=0.315322362395269X= 2.75, Y=0.194547707988987X= 3.00, Y=0.0707372016677029