Question

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

Answer 1

var s,a,b: real;  

begin

 writeln('введите a');

 readln(a);

 writeln('введите b');

 readln(b);

 s:=(a+b)/2;

 writeln('среднее арифметическое равняется:',s);

end.