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

Pascal:

Var
  A,B:integer;
Begin
  Write('A = ');ReadLn(A);
  Write('B = ');ReadLn(B);
  if (A lt; 0)xor(B lt; 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 lt; 0 then write('"-"') else if a*b gt; 0 then write('"+"') else write('//Творенье одинаково нулю');
end.