Помогите сосьавить программу назождения среднего арефметического двух чисел
Var a,b:integer; r:real; begin readln(a); readln(b); r:=(a+b)/2; writeln(r); end.
спасибо большое