Kodlar :

Function bolme(sayi:integer):integer;
var
k:integer;
begin
for k:=1 to sayi do
if (k mod 3=0) or (k mod 7=0) then
form1.listbox1.items.add(inttostr(k));
end;

Procedure TForm1.Button1Click(Sender: TObject);
var
n,k:integer;
begin
form1.ListBox1.Clear;
n:=strtoint(Edit1.Text);
bolme(n);
end;
 
Çalışma Şekli :

Klavyeden girilen n sayısına göre 3’e veya 7’ye bölünen sayıların listesini ekrana verir.