Вывести название дня недели по его номеру (Паскаль).

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

0 0 Пожаловаться