Нужна блок-схема!Помогите! 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 end end.