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

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

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

[TarasBer]

А, второй арктангенс под синусом. Понял.
Тогда так
sin(x+y)=sinxcosy+sinycosx=
(2abq+(a2-b2)sqrt(a2+b2-q2))/(a2+b2)sqrt(a2+b2)
После умножения на sqrt(a2+b2) из знаменателя исчезает корень:

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

Кстати, в таком виде формула уже не вылетает при a=b.
Но симметрии всё равно пока нет. Надо дальше думать.