По икт: пользователь вводит 2 целых чисел, найти в одной программе их сумму, разность, произведение и частное.

Var
   A,B:integer;
Begin
Write('Введите два целых числа: ');ReadLn(A,B);
if B < 0 then
   Begin
   WriteLn(a,b,' = ',a+b);
   WriteLn(a,'-(',b,') = ',a,'+',-b,' = ',a-b);
   WriteLn(a,'*(',b,') = ',a*b);
   WriteLn(a,':(',b,') = ',a/b);
   End
else
   Begin
   WriteLn(a,'+',b,' = ',a+b);
   WriteLn(a,'-',b,' = ',a-b);
   WriteLn(a,'*',b,' = ',a*b);
   WriteLn(a,':',b,' = ',a/b);
   End
End.

Примеры работы программы:

Введите два целых числа: 9 -3
9-3 = 6
9-(-3) = 9+3 = 12
9*(-3) = -27
9:(-3) = -3

Введите два целых числа: 11 11
11+11 = 22
11-11 = 0
11*11 = 121
11:11 = 1