{* Задача 588 *}

Unit ZADACH588;
Interface
Implementation
Begin
 writeln('Гнездо для ножки деревянной кровати имеет форму прямоугольной вырезки. Определить, подойдет ли данный четырехугольный брусок для этого гнезда.');
End.

Program zadach588;

Uses zadach588.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  a  : real;
  b  : real;
  a1 : real;
  b1 : real;
  k  : real;
Begin
  clrscr; {* Очистка экрана *}
  Write('Размеры гнезда a, b=');
  read(a, b);
  Write('Размеры торца бруса a1, b1=');
  read(a1, b1);
  If a > b Then
  Begin
    k := a;
    a := b;
    b := k;
  End;
  If a1 > b1 Then
  Begin
    k := a1;
    a1 := b1;
    b1 := k;
  End;
  If (a1 > = a) And (b1 > = b) Then
    write('Брус подходит')
  Else write('Брус не подходит');
    readkey; {* Нажмите любую клавишу *}
End.