Помогите составить программу!

Question

Помогите составить программу!

---

Answer 1

Я так понял:
var y, x :integer;
begin
readln(x);
if x<=0 then y := 3;<br>if 0if x>=6 then y:=-3;
writeln(y);//Ну это уже красота:)
end.

Comments

Спасибо:)

Answer 2

//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.

Comments

Спасибо:3333