unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    procedure Edit1Change(Sender: TObject; var key: char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


function funkcja(x:integer):integer;
var i, a:integer;
begin

i := 1;
a := 0;
while(i <= x/2) do
begin
  if (x mod i = 0) then a:= a + i;

  i:= i + 1;
 end;
  if(x = a) then result := x;



end;

procedure TForm1.Button1Click(Sender: TObject);
var A, B, krok:integer;
begin
A:= StrtoInt(Edit1.Text);
B:= StrtoInt(Edit2.Text);
for krok := A to B do
begin

Memo1.Text := Memo1.Text + #13#10 + IntToStr(Funkcja(krok));

end;

end;

procedure TForm1.Edit1Change(Sender: TObject; var key: char);
begin



If Not (Key In ['1'..'9',#8,'.'])then Key:= #0;




end;




end.