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

Например, можно вот так:

for i:=1 to 9 do for j:=0 to 9 do for k:=0 to 9 do if (i+j+k=A)and((100*i+j*10+k)mod B=0) then WriteLn(i,j,k);

Числа будут напечатаны. Если нужно их использовать дальше в программе, собери их из цифер.