составить программу которая бы показывала порядковый номер урока в неделе по номеру дня в неделе и его номеру в этот день. очень нужно помогите пожалуйста!

конечно не то что мне нужно но и на том спасибо))) просто мне надо чтобы вводился номер дня(d) номер урока в этот день(k) и выводился порядковый номер урока в неделе (то есть в учебной неделе 5 дней и в один день шесть уроков. всего в неделе 30)

30 уроков*

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.

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