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

program day;var n:integer;beginwrite(\'Введите номер дня недели \');readln(n);case n of1: writeln(\'Понедельник\');2: writeln(\'Вторник\');3: writeln(\'Среда\');4: writeln(\'Четверг\');5: writeln(\'Пятница\');6: writeln(\'Суббота\');7: writeln(\'Воскресенье\');endend.