Открытка и конверт

[Helen236]

Даны размеры прямоугольных открытки и конверта. Требуется определить, поместится ли открытка в конверт. (открытку можно ложить по диагонали). Не пойму, что не правильно. Подскажите пожалуйста!!!

uses crt;
function Vhod(a,b,c,d:longint):string;
var x:longint;
begin
if a<b then
 begin
  x:=a;
  a:=b;
  b:=x;
 end;
if c<d then
 begin
  x:=c;
  c:=d;
  d:=x;
 end;
if (a>=c)and(b>=d)then Vhod:='войдет'
else if (c*c+d*d>a*a+b*b)then Vhod:='не войдет'
else if(a*b>2*c*d)and((c*c+d*d-b*b)*(c*c+d*d-a*a)<=a*a*b*b-4*a*b*c*d+4*c*c*d*d)
then Vhod:='войдет' else Vhod:='не войдет';
end;
var a,b:longint;{конверт}
    c,d:longint;{открытка}
begin
clrscr;
writeln('Введите размеры конверта:');
readln(a,b);
writeln('Введите размеры конверта:');
readln(c,d);
write(Vhod(a,b,c,d));
readln
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

думаю, будет полезным посмотреть вот эту тему:
Геометрическая задача в паскале

Можно ли кирпич со сторонами a,b,c втиснуть в прямоугольное отверстие сторонами e,d.

[Helen236]

Что-то не получается. Может кто-нибудь видит ошибку????? Мозг закипает от этой задачи уже!!!!