помогите с паскалем написать (a+b)/2

Var
A,B:integer;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
WriteLn('(A+B)/2 = ',(A+B)/2);
End.