до 13:30 по мск
s:=0;
i:=5;
repeat
s:=s+6 div i;
i:=i-1;
until i<1;
write (s);

13

Объяснение:

s = 0       i = 5

Действия в цикле:

1) s = s + 6 div i

2) i = i - 1

Цикл продолжает работу пока ложно (нет) условие i < 1

Вывод s

s = 0       i = 5

Действия в цикле:

1) s = s + 6 div i = 0 + 6 div 5 = 0 + 1 = 1

2) i = i - 1 = 5 - 1 = 4

4 < 1     (нет)

s = 1       i = 4

Действия в цикле:

1) s = s + 6 div i = 1 + 6 div 4 = 1 + 1 = 2

2) i = i - 1 = 4 - 1 = 3

3 < 1     (нет)

s = 2       i = 3

Действия в цикле:

1) s = s + 6 div i = 2 + 6 div 3 = 2 + 2 = 4

2) i = i - 1 = 3 - 1 = 2

2 < 1     (нет)

s = 4       i = 2

Действия в цикле:

1) s = s + 6 div i = 4 + 6 div 2 = 4 + 3 = 7

2) i = i - 1 = 2 - 1 = 1

1 < 1     (нет)

s = 7       i = 1

Действия в цикле:

1) s = s + 6 div i = 7 + 6 div 1 = 7 + 6 = 13

2) i = i - 1 = 1 - 1 = 0

0 < 1     (да)

Цикл заканчивает работу

s = 13       i = 0