Даны 2 числа. сумма чисел увеличить в 3 раза, а разность уменьшить на 500. !

var

   a, b : integer;

begin

   write('ввести a ');

   readln(a);

   write('ввести b ');

   readln(b);

   writeln('(a+b)*3=(', a,'+', b, ')*3=', (a+b)*3);

   writeln('(a-b)-500=(', a, '-', b, ')-500=', (a-b)-500);

end.