Для данных двух чисел а и b выдать их среднее арифметическое при 2а

var a,b:real;

begin

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

read(a);

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

read(b);

writeln('Среднее арифметическое при a=2*',a,' = ',(2*a+b)/2);

end.

Если понравилось решение - ставь 5 звезд и "Лучшее решение"!