Составить программу, которая вычисляет количества двузначных чисел, которые кратны 2 и 3

program Ok;var a,i,k,n:integer;begink:=0;write('Введите кол-во чисел: ');readln( n);for i:=1 to n dobeginread(a);if (a div 10 <> 0) and (a div 100 = 0) and (a mod 2 = 0) and (a mod 3 = 0) thenk:=k+1;end;write(k);end.