20. Составить алгоритм и написать решение задачи на Паскале: Дано целое число от 1 до 7. Вывести одно из сообщений: "Рабочий день", "Суббота", "Воскресенье".

Program day;

var

dow: integer;

label main;

begin

write ('введите число: ');

main:

readln (dow);

case dow of

1, 2, 3, 4, 5: writeln ('Рабочий день');

6: writeln ('Суббота');

7: writeln ('Воскресенье');

else:

begin

writeln ('Не день недели! Повторите ввод.');

goto main;

end;

end;

readln;

end.