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

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