unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    procedure Edit1Change(D:real);
    procedure Edit2Change(dt:real);
    procedure Edit3Change(dk:real);
    procedure Edit4Change(Rdm:real);
    procedure Edit5Change(dd:real);
    procedure Edit6Change(D:real, dt:real, dk:real, Rdm:real, dd:real);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(D:real);
begin
read(D);
end;

procedure TForm1.Edit2Change(dt:real);
begin
read(dt);
end;

procedure TForm1.Edit3Change(dk:real);
begin
read(dk);
end;

procedure TForm1.Edit4Change(Rdm:real);
begin
read(Rdm);
end;

procedure TForm1.Edit5Change(dd:real);
begin
read(dd);
end;

procedure TForm1.Edit6Change(D:real, dt:real, dk:real, Rdm:real, dd:real);
begin
write(D," ",dt," ",dk,' ',Rdm,' ',dd);
end;

begin
TForm1.Edit1Change(D);
TForm1.Edit2Change(dt);
TForm1.Edit3Change(dk);
TForm1.Edit4Change(Rdm);
TForm1.Edit5Change(dd);
TForm1.Edit6Change(D,dt,dk,Rdm,dd);
end.