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