Поместиться ли два квадрата со сторонами а см,в прямоугольнике длина которого с см,ширина 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Два квадрата помещаются