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

Var
    a, b, c, d: real;
begin
    write('a b c d? ');
    readln(a, b, c, d);
    if ((a > c) and (b > d)) or ((a > d) and (b > c)) then
        writeln('да')
    else
        writeln('нет');
end.             
на языке паскаля