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

Спасибо помогло

Вот вариант решения: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.