Найти среднее арифметическое их квадратов и среднее арифметическое их модулей. (Турбо паскаль)

[erte]

Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей. (Желательно полностью написать программу)

[VIK_aka_TOR]

арифметическое

var
sr_ar, sr_ar_mod : real;
....
begin
...
sr_ar := (a * a + b * b)/2;
sr_ar_mod := (abs(a) + abs(b))/2;
...
end.