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

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