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

[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) );

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

[sheka]

Вот никак не могу понять, откуда из вот этого

p*(a*a+b*b)>= 2*a*b*q+(a*a+b*b)*sqrt(a*a+b*b-q*q)

берется вот это:

После симметризации условие принимает вид такой:
(p2+q2)*(a2+b2)-4pqab>=
(a2+b2)*(a2+b2)-4abab.