var a,b:real;
begin
writeln('Введите a= ');
read(a);
writeln('Введите b= ');
read(b);
writeln('Среднее арифметическое при a=2*',a,' = ',(2*a+b)/2);
end.
Если понравилось решение - ставь 5 звезд и "Лучшее решение"!
