Question

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

Answer 1

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

Answer 2

Спасибо:)