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

Паскаль ABC.net версии 3.3.5var  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.