TNBQ PASCAL

var a,b:longint;
    tb:real;
begin
    assign(input, 'tnbq.inp');reset(input);
    assign(output, 'tnbq.out');rewrite(output);
    readln(a,b);
    tb:=(a+b)/2;
    writeln('Thu nhap binh quan: ',tb:0:2);
end.