Заданы числа а, в. составьте алгоритм определения их среднего значения. среднее вычисляется как корень квадратный от произведения чисел.
​

program Calc;

var

 a, b: Double;

begin

 Write ('A, B = ');

 ReadLn (a, b);

 if (a <> 0) and (b <> 0) then

   WriteLn ('Результат = ', Sqrt (a * b) :20 :20)

 else

   WriteLn ('Деление на 0');

 ReadLn;

end.