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)