Напишите программу, в которой заданы четыре числа и необходимо вычислить среднее арифметическое модулей этих чисел

Программа написана на языке Delphi. Вычисляет среднеарифметическое значение модулей 4-х чисел.

var

Form1: TForm1;

r, a, v, b:integer;

bb:real;

implementation

{$R *. dfm}

procedure TForm1. Button1Click (Sender: TObject);

begin

r : = StrToInt (Edit1. Text); / /Ввод числа

a : = StrToInt (Edit2. Text); / /Ввод числа

v : = StrToInt (Edit3. Text); / /Ввод числа

b : = StrToInt (Edit4. Text); / /Ввод числа

bb: = (Abc (r) + Abc (а) + Abc (v) + Abc (b)) / 4; / / результат

Label1. Caption: = floatToStr (bb); / /Вывод результата

end;

end.