Помогите составить программу!
Я так понял: var y, x :integer; begin readln(x); if x<=0 then y := 3;<br>if 0if x>=6 then y:=-3; writeln(y);//Ну это уже красота:) end.
Спасибо:)
//Pascal var y,x:integer; begin readln(x); if x<=0 then y:=3;<br> if (x>0)and(x<6) then y:=3-x;<br> if x>=6 then y:=-3; writeln(y); end.
Спасибо:3333