Заданы действительные положительные числа a,b,c,d. Выяснить можно прямоугольник со сторонами a,b разместить внутри прямоугольника со сторонами c,d, так чтобы каждая из сторон прямоугольника была параллельна или перпендикулярна каждой стороне — Pascal(Паскаль)

uses crt;
var a,b,c,d:real;
begin
clrscr;
writeln('Введите стороны внутреннего прямоугольника a,b:');
readln(a,b);
writeln('Введите стороны внешнего прямоугольника c,d:');
readln(c,d);
if((a<=c)and(b<=d))or((b<=c)and(a<=d))
then write('Пройдет') else write('Не пройдет');
readln
end.