даны 2 числа а и b Найти их среднее арефметическое (a+b)/2

Program sr;

Uses crt;

Var a,b:integer;

s:real;

Begin

Readln(a);

Readln(b);

s:=a+b/2;

write(s);

End.