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.