Составте программу определения дня недели

Паскаль ABC.net версии 3.3.5

var
  n: word;

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