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

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.

 uses crt;

var a,b,i,s:integer;

begin

clrscr; 

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

readln(a);

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

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.