Question

Помогите сосьавить программу назождения среднего арефметического двух чисел

Answer 1

Var
 a,b:integer;
 r:real;
begin
 readln(a);
 readln(b);
 r:=(a+b)/2;
writeln(r);
end.