определите знак произведения ab, если a и b целые числа

Pascal:

Var
  A,B:integer;
Begin
  Write('A = ');ReadLn(A);
  Write('B = ');ReadLn(B);
  if (A < 0)xor(B < 0) then
    WriteLn('-')
  else
    WriteLn('+')
End.