С клавиатуры вводятся 18 чисел. отыскать сумму всех чисел кратных 4.программу

program raf105;

var a:array[1..18] of integer;

b,i:integer;

begin

writeln('Вводите числа по очереди');

repeat

 i:= i+1;

 readln(a[i]);

 if (a[i] mod 4)=0

   then b:= b+a[i];

until i=18;

writeln('Сумма чисел кратных четырём: ',b);

end.

Язык программирования PascalABC