Teiler

[Meflin]

Delphi-Quellcode:

for i:=1 to o do begin 
  if o mod i = 0 
    LB1.Items.add(IntToStr(i)) 
end;