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

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

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