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

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