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

  uses crt;

 

var a,b,i,s: integer;

 

begin

 

 

clrscr;  

 

writeln ('введите a'); readln(a);

writeln ('введите b');  

readln(b); for i=100 to 999 do beginif (i mod 10)+(i div 100)+((i mod 100) div 10)=a thenbeginif i mod b = 0 thenwriteln(i); end; end; end.

var

a,b,i,s: integer;

readln(a);

readln(b);

for i=100 to 999 do 

begin

if (i mod 10)+(i div 100)+((i mod 100) div 10)=a then

begin

if i mod b = 0 then

writeln(i);

end;

end;

end.

Не пойму, где это может понадобиться, но : 3762194662274677225006147833619028325244330646204236432925139720030670885330519044445501804761927745268763736929034118016031519410956059710016491867886889157890211484313592791062569915129529790346983079610400317269003975512764853909825684309294001486918614927217865484171497622917064676132001029225523861302285726809602736311578770958185727882065830756366057561021042715214545162477118465368433226000538225835881149829186249682400183653494069108786491864970103748052744856652666373379197565574074550935728305785527534076832933033391949562148135756886265861748671407745362911914163091988879273202451394592768

1) нужно разделить исходный код на 3 части 001 110 100 с основанием 2 и заменяем каждую группу на: 000-0,  001-1,  010-2, 011-3, 100-4,   101-5,   110-6,   111-7 получается 001 110 100 с основанием 2 = 164 с основанием 8 2) для перевода в 10ричную систму нужно умножить разряд числа на соответствующую степень разряда 1110100 = 2^6*1+2^5*1+2^4*1+2^3*0+2^2*1+2^1*0+2^0*0=64+32+16+0+4+0+0=116 3)нужно разделить исходный код на группы по 4 разряда 0111 0100 изменяем каждую группу на: 0000-0,   0001-1,   0010-2,   0011-3,   0100-4,   0101-5,   0110-6, 0111-7,   1000-8,   1001-9,   1010-a,   1011-b, 1100-c,   1101-d,   1110-e,   1111-f. получается 0111 0100 с основанием 2 = 74 с основанием 16