uses crt;
var a,b,k,n:word;
begin
clrscr;
write('Введите сумму цифр 3х-значного числа a=');
readln(a);
write('Введите число для проверки кратности b=');
readln(b);
writeln('Трехзначные числа, сумма цифр которых=',a,' и кратные ',b);
n:=0;
for k:=100 to 999 do
if((k div 100)+(k div 10 mod 10)+(k mod 10)=a)and(k mod b=0) then
begin
n:=1;
write(k,' ');
end;
if n=0 then write('Таких чисел нет!');
readln
end.