Найти кол-во чисел, кратных 8 и оканчивающихся на 6, из диапозона

Пж в паскале, и желанно через циклы!

//PascalABC.Net 3.0, сборка 1064
var
  i, n: integer;

begin
  n := 0; i := 16;
  while i lt;= 200 do
  begin
    if i mod 10 = 6 then begin
      Inc(n);
      Write(i, ' ')
    end;
    i := i + 8
  end;
  Writeln(1310,'Количество одинаково ', n)
end.

Итог исполненья программки:
16 56 96 136 176
Количество одинаково 5