D02. Сумма цифр

Решите задачу одним циклом for, допускается применение условных операторов.

Выведите количество целых трехзначных чисел (то есть чисел от 100 до 999 включительно), сумма цифр которых делится на заданное целое положительное число k.
----------------------------------------------------
var
a:array[1..10000]of longint;
i,n,j,k,z,rez:longint;
 begin
  read(k);
  for i:= 100 to 999 do begin
   j:= i mod 10;
   z:= i div 10;
   n:=j+z mod 10+ z div 10;
    if n mod k = 0 then rez:= rez+1;
  end;
  writeln(rez);
 end.