4 - построить алгоритм и программу, по которой будет реализован следующий сценарий: компьютер запрашивает номер дня недели, после ввода компьютер сообщает будни это или выходные; 5 - построить программу текстовой игры
помогите пожалуйста

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

var

  ch: char;

begin

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

  readln(ch);

  write('это ');

  case ch of

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

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

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

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

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

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

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

     end;

  readln

end.

(Это 4)