Составить программу вычисления дня недели (по цифрам от 1 до 7) с помощью оператора case of на языке паскаль

program Test;

var DayOfWeek: integer;

begin

Writeln ('Введите номер дня недели:');

Readln (DayOfWeek);

case DayOfWeek of

//0 пропускаем.

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

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

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

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

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

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

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

end;

end.