Пожалуйста напишите программу на паскале. Найти количество чисел в интервале от 1 до N, делящихся на сумму своих цифр.

count:=0;
for i:=1 to N do begin
if i mod sum(i) = 0 then inc(count);

Предварительно определите функцию sum
function sum(a: longint): byte;
var i,s: integer;
begin s:=0;
while (a>0) do begin
inc(s,a mod 10); a:=a div 10;
end;
sum:=s; end;