Из операторов составьте программу, которая соответствует задаче:

На­пи­ши­те программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел на­хо­дит сред­нее ариф­ме­ти­че­ское чисел, крат­ных 8, или сообщает, что таких чисел нет \(выводит «NO»\). Про­грам­ма по­лу­ча­ет на вход на­ту­раль­ные числа, ко­ли­че­ство введённых чисел неизвестно,последовательность чисел за­кан­чи­ва­ет­ся чис­лом 0 \(0 – при­знак окон­ча­ния ввода, не вхо­дит в последовательность\).
Количество чисел не пре­вы­ша­ет 100. Введённые числа не пре­вы­ша­ют 300. Про­грам­ма долж­на вы­ве­сти сред­нее ариф­ме­ти­че­ское чисел, крат­ных 8, или вы­ве­сти «NO», если таких чисел нет. Зна­че­ние вы­во­дить с точ­но­стью до десятых.

• var D, k, S: integer;
• Begin
• Read\(D\); S := 0; k := 0;
• while D <> 0 do
  begin
• if D mod 8 = 0 Then
  begin
• S := S + D;
  k := k + 1
  end;
• Read\(D\);
  end;
• if k > 0 then Write\(S / k:5:2\)
• else Write\('NO'\)
• end.