Написать программу которая по номеру дня недели (натур

Program pr; uses crt; Var x: integer; BeginWriteln ('введите день недели'); readln (x); case x of1: Writeln ('5 пар'); 2,3: Writeln ('4 пары'); 4: Writeln ('3 пары'); 5: Writeln ('2 пары'); 6,7: Writeln ('пар нет'); end; readln; end.=