Дано целое число x номер дня недели. определить является, ли этот день выходным или рабочим.(составить программу)

program paskal; var x:integer; begin writeln('Введите номер дня недели:'); readln(x); if x in [1..5] then begin writeln('Рабочий'); end; if x in [6..7] then begin writeln('Выходной'); end; end.