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