Написать программу которая по введенному номеру дня недели выдавал название дня

program day;

var n:integer;

begin

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

readln (n);

case n of

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

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

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

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

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

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

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

end

end.