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.