Ответ я так понимаю будет 42
Так как цикл продолжается 6 раз от 3 до 9
сначала такие оказания :
S K
0 3
3 4
7 5
12 6
18 7
25 8
33 9
42
1 бит
8бит=1 байту
1024 байт=1 килобайту
1024 килобайт=1 мегабайту
1024 мегабайт =1 гигабайту
1024 гигабайт=1 терабайту
Var i:integer;
begin
writeln('Введите число от 1 до 7');
readln(i);
case i of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
end;
readln;
end.
Программа...........................................................