[Bargest]

Код:

s:='';
for i:=n1 to n2 do
 if i mod n3 = 0 then s:=s+inttostr(n3)+' ';
Memo1.lines.Add(s);