Нужно написать на паскале

Два прямоугольника заданы длинами сторон. Определите можно ли первый прямоугольник целиком разместить во втором

Var a1, a2, b1, b2:integer;

begin

Readln (a1, a2, b1, b2);

//Площадь первого прямоугольника - S1=a1b1, площадь второго - S2=a2b2; чтобы второй полностью поместился в первый, его площадь должна быть меньше либо равна площади первого//

if a1*b1>=a2*b2 then

Writeln ('Можно вписать')

else Writeln ('Нельзя вписать');

end.

В корне неправильное решение. Если первый прямоугольник будет иметь стороны 1*9, а второй 3*6, то площадь первого будет меньше, но вписать его не получиться. Надо сравнивать стороны.
((a1 < a2) and (b1 < b2)) or ((a1 < b2) and (b1 < a1))

Опечатался: (a1 < a2) and (b1 < b2)) or ((a1 < b2) and (b1 < a2)