Question

даны два числа a b найти среднее арифметическое

Answer 1

среднее арифметическое:

(a+b)/2

Answer 2

PascalABC

var
a,b:real;
begin
readln (a,b);
writeln ('среднее арифметическое = ', (a+b)/2);
readln;
end.