Дверь и шкаф, "Горе от ума"(С) Опции

[sheka]

Вопрос: возможно ли пронести шкаф a*b*c через дверь p*q?
Мое решение:

write ( min(a,min(b,c)) < min(p,q))  and  (a+b+c-min(a,min(b,c))-max(a,max(b,c)) < max(p,q) );

Можно как-то оптимизировать? Учитывая, что паскаль я вижу впервые, и что я функции, по идее, знать не должен программа растягивается до некультурной длины.

[Lapp]

Ребят, раздел - Алгоритмы! Программа - не есть алгоритм, она есть его реализация. Если вы кладете тут программу, то только как демонстрацию ранее приведенного алгоритма!

Даю возможность исправить ошибку задним числом.. ))