aaaa

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;
    Label2: TLabel;
    procedure Edit1Change(Sender: TObject; var key: char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure funkcja(x: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 writeln (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
Label2.Caption := InttoStr(funkcja(A));
A := A + 1;
end;

end;

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

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

end;




end.