var a, b, c: integer;
p:real;
begin
 writeln('Введите a');
 readln(a);
 writeln('Введите b');
 readln(b);
 writeln('Введите c');
 readln(c);
 p:=(a+b+c);
 writeln('Ответ: ',p / 2);
end.