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

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