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

Program n1;

var day: integer;

begin

write ('введите день недели: ') ;

readln (day) ;

case day of

1: write ('понедельник ') ;

2: write ('вторник ') ;

3: write ('среда ') ;

4: write ('четверг') ;

5: write ('пятница ') ;

6: write ('суббота ') ;

7: write ('воскресение ')

else write ('ошибка') ;

end;

end.