Множественный выбор. Написать программу, которая запрашивает номер дня недели и выводит одно из сообщений «Рабочий день», «Суббота», «Воскресенье», «Ошибка»
Ответ:
program z1;
var d: integer;
begin
write ('Введите номер дня недели ');
readln (d);
if (d<1) or (d>7) then write ('Ошибка');
if (d>0) and (d
if d=6 then write ('Суббота');
if d=7 then write ('Воскресенье')
end.