program _1_2;
uses crt;
var
  dlina, shirina, vysota, dlinaOtv, vysotaOtv :real;
begin
  ClrScr;
  TextColor(13);
 Writeln('Введите исходные данные параллелепипеда');
 write('Длина (см) -> ');
 readln(dlina);
 write('Ширина (см) -> ');
 readln(shirina);
 write('Высота (cм) -> ');
 readln(vysota);
 write('Высота отверстия (см) ->');
 readln(vysotaOtv);
 write('Длина отверстия (см) -> ');
 readln(dlinaOtv);
  if ( dlinaOtv < dlina) AND (vysotaOtv < vysota)
        then writeln('Пиздец')
   else if ( dlinaOtv < dlina ) AND (vysota < vysotaOtv )
        then writeln('Работает, но только если повернуть')
   else if (dlina < dlinaOtv) AND (vysotaOtv < vysota)
        then writeln('Работает, но только если повернуть')
   else if (dlinaOtv = dlina) AND (vysotaOtv = vysota)
        then writeln('Идеально Вошло')
   else if (dlina < dlinaOtv) AND (vysota < vysotaOtv )
        then writeln('Работает');
  Repeat
  Until KeyPressed;
end.