Разработка и реализация программ с линейной структурой, страница 5

Программа:

var x,y:real;

begin

 write('vvedi X: '); readln(x);

 if x<-4 then y:=-2;

 if (x>=-4)and(x<=0) then y:=x+2;

 if (x>0)and(x<3) then y:=(6-2*x)/3;

 if (x>=3)and(x<=5) then y:=(3*x-9)/2;

 if x>5 then y:=3;

 write('Y: ',y:0:2);

 readln;

end.                                                         

Результат          x=6  y=3