даны 2 числа найти среднее арифметическое и среднее геометрическое их модули

program zz1;

var a, b, r, s:real; / /задаем переменные не целого типа

begin

write ('введите первое число '); / /вводим с клавиатуры первое число

read (a);

write ('введите второе число '); / /вводим с клавиатуры второе число

read (b);

r: = (abs (a) + abs (b)) / 2; / /вычисляем среднее арифметическое двух чисел по формуле

writeln ('среднее арифметическое двух чисел = ', r:5:2); / /выводим ответ в формате пять знаков для всего числа и два знака после точки

s:=sqrt (abs (a) * abs (b)); / /вычисляем среднее геометрическое двух чисел по формуле

write ('среднее геометрическое двух чисел = ', s:5:2); / /выводим ответ в формате пять знаков для всего числа и два знака после точки

end.