program Average;
varnum1, num2, sum, product: real;arithmeticAverage, geometricAverage: real;
begin// Ввод чиселwriteln('Введите два числа:');readln(num1);readln(num2);
// Находим среднее арифметическоеsum := abs(num1) + abs(num2);arithmeticAverage := sum / 2;
// Находим среднее геометрическоеproduct := abs(num1) * abs(num2);geometricAverage := sqrt(product);
// Вывод результатовwriteln('Среднее арифметическое: ', arithmeticAverage:0:2);writeln('Среднее геометрическое: ', geometricAverage:0:2);end.
program Average;
var
num1, num2, sum, product: real;
arithmeticAverage, geometricAverage: real;
begin
// Ввод чисел
writeln('Введите два числа:');
readln(num1);
readln(num2);
// Находим среднее арифметическое
sum := abs(num1) + abs(num2);
arithmeticAverage := sum / 2;
// Находим среднее геометрическое
product := abs(num1) * abs(num2);
geometricAverage := sqrt(product);
// Вывод результатов
writeln('Среднее арифметическое: ', arithmeticAverage:0:2);
writeln('Среднее геометрическое: ', geometricAverage:0:2);
end.