Поместиться ли два квадрата со сторонами а см,в прямоугольнике длина которого

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
Два квадрата вмещаются