Помогите пожалуйста! Отыскать творение двузначных чисел кратных трём и двум

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] lt;gt; 0 do

begin

 readln(a[i]);

 if (a[i]lt;100) and (a[i]gt;9) and ((a[i] mod 3) = 0) and ((a[i] mod 2) = 0)

   then b:= b*a[i];

end;

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

end.

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