program a1;
uses crt;
var x,y,z:integer;
begin
clrscr;
writeln ('vvedite dva chisla');
readln (x,y);
z:=(x+y) div 2;
writeln ('srednee',z);
readln;
end.