Найдите количество двузначных чисел, которые делятся на сумму своих цифр

program xxx;    var i, k, d, e, s : integer; begin   k:=0;  for i:= 10 to 99 do    begin       d:= i div 10;       e:= i mod 10;       s:=d + e;       if i mod s = 0 then k:=k+1    end;    write ('кол-во чисел которые делятся на сумму своих цифр=', k);    readln end.