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