Написать программу которая по номеру дня недели (натур. число от 1 до 7) выдаёт в качестве результата количество уроков в вашем классе в этот день

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.

==========================================================