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

program zz1;

var

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

begin

writeln (' Введите два числа:');

readln (a, b); / / вводим с клавиатуры два заданных числа

writeln (' Среднее арифметическое чисел ', a, ' и ', b, ' равно ', (a + b) / 2 : 5 : 2); / / выводим первый ответ в формате пять знаков для всего числа и два знака после точки

writeln (' Среднее геометрическое ', a, ' и ', b,' равно ', sqrt (a * b) : 5 : 2); / / выводим первый ответ в формате пять знаков для всего числа и два знака после точки

end.