Question

Написать программу,которая в зависимости от порядкового номера дня недели 1..7 выводит на экран его название (понедельник, вторник и тд.)

Answer 1

Var
   d: integer;
   repeat
     readln(d);
     case d of
     1: writeln('Понедельник');
     2: writeln('Вторник');
     3: writeln('Среда');
     4: writeln('Четверг');
     5: writeln('Пятница');
     6: writeln('Суббота');
     7: writeln('Воскресенье');
     else writeln('Конец работы!')
     end;
  until (d<1 or d>7)
end.