Краткий вариант:
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.