Имеется прямоугольное отверстие со сторонами a и b и кирпич с

русскими словами могу обрисовать сущность процедуры, чтобы сами перевели в паскальный язык.) Годится?

лучше было бы теснее готовую программку написать(

я просто с оформлением программки не очень знакома( не поняла я " оператор ветвления"(

я просто паскаля не видал никада, тока бейсика пытал когда-то... а метод подробно достаточно-таки просто представляю... тока не ветвления оператором, а через "IF". Типа. если условие соблюдено, то делать то-то, если не соблюдено - то-то... но не желаете - не буду ... "против воли мил не будешь") Ожидайте спеца) Фортуны!)

Коробки
(Время: 1 сек. Память: 16 Мб Сложность: 19%)

На столе лежат коробка размера A1 B1 C1 и коробка размера A2 B2 C2. Выясните можно ли одну из этих коробок положить в другую, если разрешены повороты коробок вокруг любого ребра на угол 90 градусов.
Входные данные

1-ая строка входного файла содержит три целых числа A1, B1 и C1. 2-ая строчка входного файла содержит три целых числа A2, B2 и C2. Все числа положительны и не превосходят 1000.
Выходные данные

Если коробки одинаковы, выведите "Boxes are equal". Если 1-ая коробка может быть положена во вторую, выведите "The first box is smaller than the second one". Если вторая коробка может быть положена в первую, выведите "The first box is larger than the second one". Иначе, выведите "Boxes are incomparable"
program gt;
label 1;
var a,b:array[1..1000]of longint;
a1,b1,c1,a2,b2,c2,p,l,n,i,j:longint;
begin
read(a1,b1,c1,a2,b2,c2);
a[1]:=a1;a[2]:=b1;a[3]:=c1;
b[1]:=a2;b[2]:=b2;b[3]:=c2;
for i:=1 to 2 do
begin
for j:=1 to 3-i do
begin
p:=A[j];l:=A[j+1];
if A[j]gt;A[j+1] then begin
A[j]:=l;
A[j+1]:=p;
end;
end;
end;
for i:=1 to 2 do
begin
for j:=1 to 3-i do
begin
p:=b[j];l:=b[j+1];
if b[j]gt;b[j+1] then begin
b[j]:=l;
b[j+1]:=p;
end;
end;
end;
if(a[1]=b[1])and(a[2]=b[2])and(a[3]=b[3])then begin
writeln('Boxes are equal');
goto 1;
end;
if((a[1]lt;=b[1])and(a[2]lt;b[2])and(a[3]lt;=b[3]))or
((a[1]lt;b[1])and(a[2]lt;=b[2])and(a[3]lt;=b[3]))or
((a[1]lt;=b[1])and(a[2]lt;=b[2])and(a[3]lt;b[3]))then begin
writeln('The first box is smaller than the second one');
goto 1;
end;
if((a[1]gt;=b[1])and(a[2]gt;b[2])and(a[3]gt;=b[3]))or
((a[1]gt;=b[1])and(a[2]gt;=b[2])and(a[3]gt;b[3]))or
((a[1]gt;b[1])and(a[2]gt;=b[2])and(a[3]gt;=b[3]))then begin
writeln('The first box is larger than the second one');
goto 1;
end;
writeln('Boxes are incomparable');
1:
end.