Program p1602;
Var a, b : Integer;
Begin
write('Введите два числа:');
ReadLn(a, b) ;
Write('Знак разности a-b:');
If Abs(a)=Abs(b) Then
if (a<0) And (b>0) Then Write('-')
Else Write('+' )
Else If Abs(a) Then If (b<0) Then Write('+')
Else Write('-')
Else If (a>0) Then Write('+')
Else Write ('-');
End.