даны два числа. Большее число увеличить на 3, а меньшее уменьшить на 5

var

  a, b: real;

begin

  writeln('Введите 2 числа');

  readln(a, b);

  if a > b then 

  begin

    a:= a + 3;

    b:= b - 5;

  end;

  if a < b then

  begin

    a:= a - 5;

    b:= b + 3;

  end;

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

end.