Оператор case of, Циклы в языке Паскаль. Написать программы: 1. Выводящую по числу день недели. Например, 1-понедельник

Var i:integer;

begin

writeln ('введите число от 1 до 7') ;

readln (i) ;

case i of

1:writeln ('Понедельник') ;

2:writeln ('Вторник') ;

3:writeln ('Среда') ;

4:writeln ('Четверг') ;

5:writeln ('Пятница') ;

6:writeln ('Суббота') ;

7:writeln ('Воскресенье') ;

end;

readln;

end.