помогите с Паскалем

[Veselyn]

Stilet если у ваш код подставить 6*4=8*3 кирпичь пройдет в отверстие, но жто не так

[seoshiza]

Сообщение от Anatole

у кирпича все стороны прямоугольники, а значит необходимо проверять 2 размера

ширина высота и длина

program lab_3;
uses Crt;
var a,b,c,x,y:Real;
begin
Writeln('Стороны кирпича:');
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Write('c=');
Readln(c);
Writeln('Размеры отверстия:');
Write('x=');
Readln(x);
Write('y=');
Readln(y);
if ((a<=x) and (b<=y)) or
   ((b<=x) and (a<=y)) or
   ((a<=x) and (c<=y)) or
   ((c<=x) and (a<=y)) or
   ((c<=x) and (b<=y)) or
   ((b<=x) and (c<=y)) then Writeln('Кирпич пройдет в отверстие.') else 
   Writeln('Кирпич не пройдет в отверстие.');
Readln();
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

seoshiza, если даже не обращать внимание на то, что это тема пятилетней давности, то чем предложенный вами код принципиально отличается от того, что был в пост #5 ?!

можно не отвечать. вопрос риторический...