Обнулить элементы массива b(9) в четных ячейках . , и блок схема

Электро́нная по́чта — технология и служба по пересылке и получению электронных сообщений между пользователями компьютерной сети.
Почтовый клиент — программное обеспечение, устанавливаемое на компьютере пользователя и предназначенное для получения, написания, отправки и хранения сообщений электронной почты одного или нескольких пользователей.
Почтовый сервер — сервер, расположенный в Интернете, принимающий или передающий сообщения электронной почты по протоколам SMTP, POP, IMAP.
Почтовый адрес Полное имя получателя или название организации
Название улицы, номер дома, номер квартиры
Название населенного пункта
Название района, области, края или республики
Название страны
Номер а/я, если есть (в формате «а/я 15»)
Почтовый индекс
Спам — массовая рассылка корреспонденции рекламного характера лицам, не выражавшим желания её получать.
Не открывая их сразу в спам и оттуда удалить

===== PascalABC.NET =====

function СуммаЦифр(Число: integer): integer;

begin

 Result := 0;

 while Число > 0 do

 begin

   Result += Число mod 10;

   Число := Число div 10

 end

end;

procedure ЧислоДействий(Число: integer; var Действий: integer);

begin

 Число := Abs(Число); // вдруг кто-то задал отрицательное?

 Действий := 0;

 while Число > 0 do

 begin

   Число -= СуммаЦифр(Число);

   Inc(Действий)

 end;

 if Число <> 0 then // невозможно получить 0

   Действий := -1

end;

begin

 var Число := ReadInteger('Введите число:');

 var СделаноДействий := 0;

 ЧислоДействий(Число, СделаноДействий);

 if СделаноДействий >= 0 then

   Print('Сделано действий:', СделаноДействий)

 else

   Print('Невозможно получить ноль')

end.