Составте программу на турбо паскаль назвать ее дни недели судь программы заключается в том что программа запрашивает у пользователя число от 1 до 7 и в зависимости от того какое число получается выводит дни недели

Спасибо

Program n1;var day: integer;beginwrite('введите день недели: ');readln(day);case day of1: write('понедельник ');2: write('вторник ');3: write('среда ');4: write('четверг');5: write('пятница ');6: write('суббота ');7: write('воскресение ')else write('ошибка');end;end.