1.найти двухзначные числа, которые делятся на сумму своих цифр 2.составьте программу вывода количества трёхзначных чисел, у которых цифры строго по убыванию.

Var
i,m,sum:Integer;
Begin
 for i:=10 to 99 do
  begin
   m:=i mod 10;
   n:=i div 10;
   sum:=m+n;
   if (i mod sum = 0) then Writeln(i);
  end;
 end.