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

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 (d7)

end.