Краткий вариант:

var n,i,a,k: integer;

begin

readln(n);

for i := 1 to n do

begin

readln(a);

if (a mod 10 = 6) and (a mod 3 = 0) then k:=k+1;

end;

writeln(k)

end.

С пояснительными надписями на экране:

var n,i,a,k: integer;

begin

write('Введите количество чисел (N): ');

readln(n);

for i := 1 to n do

begin

write('Введите число: ');

readln(a);

if (a mod 10 = 6) and (a mod 3 = 0) then k:=k+1;

end;

writeln('Количество чисел, оканчивающихся на 6 и кратных 3, равно: ',k)

end.