Помогите пожалуйста!

Найти произведение двузначных чисел кратных трём и двум ​

program raf105;

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

i,b:integer;

begin

i:=1;

b:=1;

a[1]:=1;

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

writeln('Чтобы закончить введите 0');

while a[i] <> 0 do

begin

 readln(a[i]);

 if (a[i]<100) and (a[i]>9) and ((a[i] mod 3) = 0) and ((a[i] mod 2) = 0)

   then b:= b*a[i];

end;

writeln('Произведение двузначных чисел кратных двум и трём равно: ',b);

end.

Программа написана на языке PascalABC