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