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

Предыдущий
вопрос Следующий
вопрос

program average;
var
a, b: real;
begin
writeln('Введите два числа:');
readln(a, b);

writeln('Среднее арифметическое:', (a + b) / 2);
writeln('Среднее геометрическое модулей:', sqrt(abs(a) * abs(b)));
end.