Дано 2 числа, вывести ** экран целую часть их полусуммы

Question

Дано 2 числа, вывести на экран целую часть их полусуммы

Answer 1

Var
a,b:longint;
c:real;
begin
read(a,b);
c:=(a/2)+(b/2);
Trunc(c);
write(c);
end.