Рация и чемодан штирлиц поручил радистке кэт подобрать чемодан для перевозки рации. чемодан и рация имеют форму параллелепипеда. рацию можно класть в чемодан только вертикально или горизонтально (рацию нельзя ставить под углом к дну чемодана) . боковые стенки рации должны быть параллельны боковым стенкам чемодана. рация не может поместиться в чемодане, если при этом какой–либо из ее размеров больше или равен соответствующему размеру чемодана. напишите программу, которая подскажет радистке кэт, поместится ли рация в чемодане.

Var        
R1, R2, R3, S1, S2, S3: Integer;        
begin             
writeln('Введите размеры рации и чемодана');             
readln(R1, R2, R3, S1, S2, S3);             
 if ((R1 < S1) and (R2 < S2) and (R3 < S3)) or             
((R3 < S3) and (R2 < S1) and (R1 < S2)) or             
((R1 < S1) and (R2 < S3) and (R3 < S3)) or             
((R2 < S2) and (R1 < S3) and (R3 < S1)) or             
 ((R2 < S1) and (R3 < S2) and (R1 < S3)) or             
((R1 < S2) and (R3 < S1) and (R2 < S3)) then
WriteLn('ПОМЕЩАЕТСЯ')  
 else
WriteLn('НЕ ПОМЕЩАЕТСЯ');
end.