program laba1_1;
var
    NofD: integer;
begin
    repeat
        try
            Writeln('Ââåäèòå íîìåð äíÿ íåäåëè: ');
            Readln(NofD);
        except
            Writeln('Ââåäèòå öåëîå ÷èñëî!');
        end;
        case NofD of
            1: writeln('Ïîíåäåëüíèê');
            2: writeln('Âòîðíèê');
            3: writeln('Ñðåäà');
            4: writeln('×åòâåðã');
            5: writeln('Ïÿòíèöà');
            6: writeln('Ñóááîòà');
            7: writeln('Âîñêðåñåíüå');
        else
            writeln('Òàêîãî íîìåðà äíÿ íåäåëè íå ñóùåñòâóåò');
        end;
    until ((NofD>0) and (NofD<8));
    readln(NofD);
end.