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

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);   readlnend..