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

//PascalABC.Net 3.0, сборка 1064var  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