var day:integer;
begin
readln(day);
case day of
1..5: writeln('Рабочий день');
6: writeln('Суббота');
7: writeln('Воскресенье');
end;
end.
fpc 3.0.0
var day:integer;
begin
readln(day);
case day of
1..5: writeln('Рабочий день');
6: writeln('Суббота');
7: writeln('Воскресенье');
end;
end.
fpc 3.0.0