по введенному номеру от 1 до 7 выводит на экран день недели

var day:integer;begin writeln('Введите номер дня недели(1-7):'); readln(day); case day of 1:writeln('Понедельник'); 2:writeln('Вторник'); 3:writeln('Среда'); 4:writeln('Четверг'); 5:writeln('Пятница'); 6:writeln('Суббота'); 7:writeln('Воскресенье'); else writeln('Неверно введён день недели!'); end;end.

var  day:integer; begin  writeln('Введите номер дня недели(1-7):');  readln(day);    case day of    1:writeln('Понедельник');    2:writeln('Вторник');    3:writeln('Среда');    4:writeln('Четверг');    5:writeln('Пятница');    6:writeln('Суббота');    7:writeln('Воскресенье');    else      writeln('Неверно введён день недели!');  end;end.