Программа для нахождения среднего значения двух чисел. Помогите пожалуйста . Заранее...

Question

Программа для нахождения среднего значения двух чисел. Помогите пожалуйста . Заранее спасибо )

Answer 1

Var a,b:integer; sr:real;
begin
readln(a);
readln(b);
sr:=(a+b)/2;
writeln('Среднее значение = 'sr);
end.