Найти творенье двузначных нат.чисел, кончающихся на 8.

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 10) = 8)

   then b:= b*a[i];

end;

writeln('Творенье двузначных чисел оканчивающихся на 8 равно: ',b);

end.