Даны два числа a и b. найди их среднее арифметическое: (a+b)/2. люди сделайте на delphi надо по программированию заранее .

A = в Edit1
b = в Edit2
Результат в Label1

var
    a, b, c: real;
begin
    a := StrToFloat(Edit1.Text);
    b := StrToFloat(Edit2.Text);
    Label1.Caption := FloatToStr((a + b) / 2);
end;