program task8; var dn:string; ch,p:integer; begin writeln('Введите число');readln (ch);if ch > 8 thenbreak;case ch of1:begin writeln('понедельник'); writeln('Литература'); writeln('История'); writeln('Алгебра'); writeln('Английский'); writeln('ОБЖ'); writeln('Геометрия'); end;2:begin writeln ('вторник ');writeln('Обществознание '); writeln('Информатика'); writeln('Физика'); writeln('Химия '); writeln('География'); writeln('Английский'); writeln('Физкультура');end;3:beginwriteln ('среда '); writeln('Физика'); writeln('Физкультура'); writeln('Алгебра'); writeln('Алгебра'); writeln('Французский'); writeln('Русский'); writeln('История');end;4:begin writeln ('четверг ');writeln('Французский'); writeln('Алгебра'); writeln('Геометрия'); writeln('Английский'); writeln('Английский'); writeln('География'); writeln('Физкультура');end;5:begin writeln ('пятница ');writeln('Информатика'); writeln('Обществознание'); writeln('Физика'); writeln('Астрономия'); writeln('Русский'); writeln('Литература'); writeln('Биология');end;6:begin writeln ('суббота '); writeln('- в этот день занятий нет');7:begin writeln ('воскресенье ');writeln('- в этот день занятий нет');end; end.