Заданы размеры А, В прямоугольного отверстия и размеры x,y,z кирпича. Определить, пройдет ли кирпич через отверстие (программа Паскаль)

Question

Заданы размеры А, В прямоугольного отверстия и размеры x,y,z кирпича. Определить, пройдет ли кирпич через отверстие

Answer 1

Uses CRT;
Const n=3;
      m=2;
var a:array[1..n] of integer;
    b:array[1..m] of integer;
    i:integer;
begin
     ClrScr;
     writeln('Кирпич (Длина х Ширина х Высота):');
     for i:=1 to n do read(a[i]);
     writeln('Отверстие (Длина х Ширина):');
     for i:=1 to m do read(b[i]);
     if (a[2]<b[1]) and (a[3]<b[2]) then writeln('Кирпич пройдет в отверстие')
     else writeln('Не пройдет');
end.

Answer 2

program abxyz;
var a,b,x,y,z:real;
begin
write('a:');
read(a);
write('b:');
read(b);
write('x:');
read(x);
write('y:');
read(y);
write('z:');
read(z);
if (x<a) and (y<b) or (x<b) and (y<a) then
writeln('True')
else
if (x<a) and (z<b) or (x<b) and (z<a) then
writeln('True')
else
if (y<a) and (z<b) or (y<b) and (z<a) then
writeln('True')
else
writeln('False');
end.