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

var a, b, c, d: integer;
Begin
writeln ('Введите a, b, c, d');
readln (a, b, c, d);
if (a<=c) and (b<=d) or (a<=d) and (b<=c) then write ('можно') else write ('нельзя');
readln
end.