{ EXAMPLE.LPR
  Автор: Иванов И.И.
  Группа: ПМ-196
  Дата : 01/09/05
  Нахождение суммы и разности введенных чисел.}

Program Math;

var
  A, B, Sum, Sub: Integer;

begin
  Write('Введите целое число A =>_');
  RedLn(A);
  Write('Введите целое число B =>_');
  RedLn(B);
  Sum := A+B;
  Sub := A-B;
  WriteLn('Сумма A+B=', Sum);
  WriteLn('Разность A-B=', Sub);
  ReadLn;
end.