Найти сумму 23 первых натуральных чисел, которые при делении на 8 дают остаток 5. В паскаль

program zz1;

var k, b, i:integer; / / задаем переменные целого типа

begin

i:=1; k:=0; / / задаем начальное значение для параметра цикла и количества искомых чисел

while k < = 23 do / / организуем цикл, пока параметр цикла не достигнет 23

begin

if i mod 8 = 5 then begin b:=b + i; k:=k + 1; end; / / проверяем, если число при делении на 8, в остатке дает 5, то добавляем число к сумме

i:=i + 1; / / увеличиваем параметр цикла на единицу

end;

write (' сумма 23 первых натуральных чисел, которые при делении на 8 дают остаток 5 = ', b); / / выводим ответ

end.