Найдите количество целых чисел на интервале [100;25000], у которых сумма цифр в десятичной и пятеричной системах счисления одинаковые. В ответе укажите целое число без пробелов и знаков препинания, например, 19

var a,b: array [100..25000] of integer; i,k,n,p:integer; Begin for i:=100 to 25000 do   begin        b[i]:=i;        a[i]:=i;         n:=0;         while a[i]>0 do             begin                  n:=n+(a[i] mod 10);                  a[i]:=a[i]div 10;            end;    p:=0;       while b[i]>0 do             begin                 p:=p+(b[i] mod 5) ;               b[i]:=b[i]div 5;             end;         if(n=p) then inc(k);   end;   writeln(k); end.