Составить программу для среднего арифметического и среднего геометрического двух чисел

program zz1;

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

begin

write ('введите первое число '); / /вводим с клавиатуры первое число

read (a);

write ('введите второе число '); / /вводим с клавиатуры второе число

read (b);

r: = (a + b) / 2; / /вычисляем среднее арифметическое двух чисел по формуле

writeln ('среднее арифметическое двух чисел = ', r:5:2); / /выводим ответ в формате пять знаков для всего числа и два знака после точки

r:=sqrt (a * b); / /вычисляем среднее геометрическое двух чисел по формуле

write ('среднее геометрическое двух чисел = ', r:5:2); / /выводим ответ в формате пять знаков для всего числа и два знака после точки

end.