Var
x, y:integer;
Begin
Write('Введите значение x:') ;
Readln(x) ;
Begin
If x<0 then
Write('y=0') end;
Begin
If x=0 then
Write('y=3') end;
Begin
If x=1 then
Write('y=1') end;
Begin
If x=2 then
Write('y=3') end;
Begin
If x=3 then
Write('y=2') end;
Begin
If x=4 then
Write('y=2') end;
Begin
If x=5 then
Write('y=1') end;
Begin
If x=6 then
Write('y=1') end;
Begin
If x=7 then
Write('y=3') end;
Begin
If x=8 then
Write('y=3') end;
If x>8 then
Write('y=0') end.
