Программа на языке паскаль

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.