Program task8; var dn: string; ch,p: integer; begin writeln('введите число'); readln (ch); if ch > 8 then break; case ch of 1: begin writeln ('понедельник'); writeln (''); writeln (''); writeln (''); writeln (''); writeln ('обж'); writeln (''); end; 2: begin writeln ('вторник '); writeln ('обществознание '); writeln ('информатика'); writeln (''); writeln (' '); writeln (''); writeln (''); writeln ('физкультура'); end; 3: begin writeln ('среда '); 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.

Program task8; var ch: integer; begin  writeln('введите число: '); readln (ch); case ch of 1: begin writeln ('понедельник'); writeln (''); writeln (''); writeln (''); writeln (''); writeln ('обж'); writeln (''); end; 2: begin writeln ('вторник '); writeln ('обществознание '); writeln ('информатика'); writeln (''); writeln (' '); writeln (''); writeln (''); writeln ('физкультура'); end; 3: begin writeln ('среда '); 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 ('- в этот день занятий нет'); end; 7: begin writeln ('воскресенье '); writeln ('- в этот день занятий нет'); end; else writeln('ошибка ввода'); end;   end. пример: введите число 5пятницаинформатикаобществознаниеастрономия биология

Не работает потому что: 1. оператор break вызывает выход из цикла, а цикла в месте, где употреблен break, нет. по смыслу программы её требовалось прервать и в языке паскаль для этого используется exit. 2. после меток 6: и 7: следует begin, а парного к ним end нет. 3. это не ошибка, но переменные dn и p в программе не используются и их можно не указывать.

истинное утверждения сканер не устройство вывода информации поскольку это устройство ввода информации .ложное монитор устройство ввода информации поскольку это устройство вывода информации