Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.

procedure TForm1.Button1Click(Sender: TObject);var a,b: real;ssqr, smod: real;begin  a:= StrToFloat(edit1.text);  b:= StrToFloat(edit2.text);ssqr:= ((a*a) + (b*b))/2;  smod:= (abs(a) + abs(b))/2;label1.Caption:= FloatToStr(ssqr);  label2.Caption:= FloatToStr(smod);end;PS: Перед компилированием добавьте на форму следующие компоненты: 2 edit, 2 label, 1 button