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

Вот вариант решения:
uses Crt;
  var i, z1, z2, z, Col: integer;
begin
 ClrScr; 
Col:=0;
 for i:=10 to 99 do   begin   
   z1:=i div 10; 
   z2:=i mod 10;
   z:=z1+z2;   
  if (i mod z =0) then       
      begin       
        Col:=Col+1; 
        Write(i:4);   
      end;   
    end; WriteLn; WriteLn; 
 WriteLn('  Col = ', Col);
 ReadLn;
end.

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