program z123;

var
  a, b, c: integer;

begin
  writeln('Введите числа');
  readln(a, b);
  if a > b then
  begin
    write('Первое число больше поэтому ', a, ' заменяем на ');
    c := a * b;
    write(c, ', второе число меньше поэтому ', b, ' заменяем на ');
    a := a + b;
    write(a, '.');
  end
  else
  begin
    write('Второе число больше поэтому ', b, ' заменяем на ');
    c := a * b;
    write(c, ', первое число меньше поэтому ', a, ' заменяем на ');
    a := a + b;
    write(a, '.');
  end;
end.