Question

в паскале: По номеру дня недели вывести на печать рабочий это день или выходной, считая выходными субботу и воскресение

Answer 1

uses crt;
var i,j:integer;
begin
readln(i);
case i of
1,2,3,4,5 : writeln('Рабочий');
6,7: writeln('Выходной');
end;
end.