Написать программу, позволяющую по номеру недели (от1-7) выдавать в качестве результата количество уроков в группе в соответствуйший день

Ток на Паскале могу

Program pr;

uses crt;

Var x:integer;

Begin

Writeln ('введите день недели') ;

readln (x) ;

case x of

1:Writeln ('5 пар') ;

2,3:Writeln ('4 пары') ;

4:Writeln ('3 пары') ;

5:Writeln ('2 пары') ;

6,7:Writeln ('пар нет') ;

end;

readln;

end.