Даны два числа A и B. Найди их среднее арифметическое: (a+b)/2. Люди сделайте ** delphi...

Question

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

Answer 1

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;