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

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);//  выводим 1-ый ответ в формате 5 знаков для всего числа и два знака после точки

end.