Поместиться ли два квадрата со сторонами а см,в прямоугольнике длина которого с см,ширина d см,Известно что c>d. Паскаль!

Var
  a,c,d,t:real;
begin
  Write(Введите сторону квадрата: ); Read(a);
  Write(Введите длину и ширину прамоугольника: );
  Read(c,d);
  if clt;d then begin t:=c; c:=d; d:=t end;
  if (dgt;a) and (cgt;2*a) then Writeln(Два квадрата помещаются)
  else Writeln(Два квадрата не помещаются)
end.

Пример
Введите сторону квадрата: 8
Введите длину и ширину прамоугольника: 16.2 9
Два квадрата помещаются