Определите знак произведения 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.

//Версия написания (по Эникей): 
//PascalABCCompiler.Core v3.3.0.1540 (16.09.2017)
var 
    a, b: integer;
begin 
    write('Введите числа a и b через пробел и нажмите "enter": '); 
    read(a, b);
    write('Знак произведения - '); 
    if a*b < 0 then write('"-"') else if a*b > 0 then write('"+"') else write('//Произведение равно нулю');
end.