Объясните совсем не понимаю. s:=0;
i:=3
repeat s:=s+5 div i;
i:=i-1;
until i <1

div - это целочисленное деление. Это значит что при деление на числа, остаток отбрасывается.

Пример (10 div 3):

1. Если мы просто разделим 10 на 3, то мы получим 3.3333. При деление целочисленным делением (div-ом), дробная часть отбрасывается. И ответ будет просто 3.

Вот еще примеры:

Изначально s = 0, а i = 3

Цикл repeat-until означает что цикл будет совершаться, пока условие в until не будет выполнено.

Мы попадаем в цикл. Сначала выполняется s + 5, что будет равно 5, а после выполняется div с i: 5 div 3. Мы получаем ответ 1 и это же значение заносится в переменную s. От переменной i отнимается 1 и оно становится 2.

После итерации цикла, происходит проверка условия until. Так как 2 не меньше 1, цикл вновь запускается

Вторая итерация. s уже равна 1, значит: 1 + 5 div 2 -> 6 div 2 -> 3. s = 3. От i опят отнимается единица.

Опять завершаем цикл и проверяем условие 1 не меньше 1 (они равны), значит будет еще одна итерация.

Третья итерация. s = 3, значит 3 + 5 div 1 -> 8 div 1 -> 8. В s заносится 8. От i отнимаем 1 и i = 0

Так как 0 < 1, условие выполняется и мы выходим из цикла. Программа завершена. В s находится цифра 8, в i лежит 0