Question

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

Answer 1

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

Answer 2

спасибо большое