Begin1°. Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2 Begin2°. Даны два неотрицательных числа a и b. Найти их среднее геометрическое, т. е. квадратный корень из их произведения: (a·b)^(1/2) Для вычисления корня квадратного используем функцию sqrt(x), а потом по условию - находим корень из произведения a и b. Вводим неотрицательные числа. Begin3°. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов. После ввода a и b вычисляем их квадраты, причем, записанные в сами переменные a, b. Потом по очереди выводим искомые величины. Для вычисления квадрата чисел используем функцию sqr(x) Begin4°. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей. Вводим переменные a и b, находим их модули и выводим результат. Begin1. var a, b: real; begin writeln('Введите два числа:'); readln(a, b); { <-- Вводим два числа и нажимаем Enter } { Выводим результат: } writeln('Среднее арифметическое чисел ', a, ' и ', b, ' равно ', (a + b) / 2); readln end.