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

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