Написать программу которая по номеру дня недели (натур. число от 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. ==========================================================