PascalABC Даны действительные положительные числа

[Александр~]

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

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

Спасибо.

[Mad_Cat]

1

if (a<b) then 
begin
a:=a+b;
b:=a-b;
c:=a-b;
end;
if (c<d) then 
begin
c:=c+d;
d:=c-d;
d:=c-d;
end;
writeln ((a<=c)and (b<=d));

[Александр~]

Спасибо за помощь!