program laba1_1;
uses
  SysUtils;
var
    number_of_day: integer;
begin
    repeat
        try
            Writeln('Введите номер дня недели: ');
            Readln(number_of_day);
            case number_of_day of
                1: writeln('Понедельник');
                2: writeln('Вторник');
                3: writeln('Среда');
                4: writeln('Четверг');
                5: writeln('Пятница');
                6: writeln('Суббота');
                7: writeln('Воскресенье');
            else
                writeln('Такого номера дня недели не существует');
            end;
        except
           Writeln('Введите целое число!');
        end;
    until ((number_of_day>0) and (number_of_day<8));
    readln(number_of_day);
end.