mod'suz katsayi programi

program bolunme;

var i,a,b,c,d:integer;

begin

writeln('Ust sayi siniri kac olsun?');
readln(b);

Writeln('Kacin katlari bulunsun?');
readln(d);

c:=b div d;

for i:=1 to b do
begin
for a:=1 to c do
begin
if d*a=i then Writeln(i);
end;
end;
readln;

end.