4 - выстроить метод и программку, по которой будет реализован следующий

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)