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

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

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

Результат выполнения программы:
16 56 96 136 176
Количество равно 5