{* Задача 241 *}

Unit ZADACH241;
Interface
Implementation
Begin
 writeln('Даны действительные положительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a, b, c в прямоугольное отверстие со сторонами x и y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.');
End.

Program p56;

Uses zadach241.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  a : integer;
  b : integer;
  c : integer;
  x :    integer;
  y :    integer;
Begin
  ClrScr; {* Очистка экрана *}
  writeln('введите ребра кирпича');
  write('a-? ');
  readln(a);
  write('b-? ');
  readln(b);
  write('c-? ');
  readln(c);
  writeln('введите стороны отверстия');
  write('x-? ');
  readln(x);
  write('y-? ');
  readln(y);
  If ((x > = a) And (y > = b)) Or ((x > = b) And (y > = a)) Then
    writeln('пролезет стороной a и b');
  If ((x > = a) And (y > = c)) Or ((x > = c) And (y > = a)) Then
    writeln('пролезет стороной a и c');
  If ((x > = b) And (y > = c)) Or ((x > = c) And (y > = b)) Then
    writeln('пролезет стороной b и c');
  ReadKey; {* Нажмите любую клавишу *}
End.