begin
  var a := ReadLnInteger('Введите число A:');
  var b := ReadLnInteger('Введите число B:');
  var c := ReadLnInteger('Введите число C:');
  var d := ReadLnInteger('Введите число D:');
  WriteLn(max(a, b) < max(c, d) ? 'Упс...ошибка :(' : ((a div c) * (b div d)) > ((a div d) * (b div c)) ? 'при размещении их длинной стороной вдоль длинной стороны' : ((a div c) * (b div d)) = ((a div d) * (b div c)) ? 'без разницы' : 'при размещении их короткой стороной вдоль длинной стороны');
end.