Имеется стол прямоугольной формы размером a × b - Pascal ABC

Формулировка задачи:

Имеется стол прямоугольной формы размером a × b (a и b - целые числа, a > b). В каком случае на столе можно разместить большее количество картонных прямоугольников с размерами c × d (c и d — целые числа, c > d ): при размещении их длинной стороной вдоль длинной стороны стола или вдоль короткой. Прямоугольники не должны лежать один на другом и не должны свисать со стола.

Решение задачи: «Имеется стол прямоугольной формы размером a × b»

Листинг программы

uses crt;
var a,b,c,d,n1,n2:integer;
begin
repeat
writeln('Введите размеры стола a>b:');
read(a,b);
until (b>0)and(a>b);
repeat
writeln('Введите размеры прямоугольника c>d:');
read(c,d);
until (d>0)and(c>d);
n1:=(a div c)*(b div d);
n2:=(a div d)*(b div c);
writeln('Длинной вдоль длинной=',n1,' длинной вдоль короткой=',n2);
if n1>n2 then write('Длинной стороной вдоль длинной больше')
else if n2>n1 then write('Длинной стороной вдоль короткой больше')
else write('При разном расположении одинаково')
end.

Объяснение кода листинга программы

Установка начального значения переменным a, b, c, d, n1, n2 равным 0.
Ввод размеров стола a и b с помощью функции read(a, b).
Проверка корректности введенных размеров стола с помощью условия (b > 0) and (a > b).
Ввод размеров прямоугольника c и d с помощью функции read(c, d).
Проверка корректности введенных размеров прямоугольника c и d с помощью условия (d > 0) and (c > d).
Вычисление площади первого прямоугольника путем деления a на c, а затем b на d и умножение результатов.
Вычисление площади второго прямоугольника путем деления a на d, а затем b на c и умножение результатов.
Вывод значения площади первого прямоугольника с помощью функции write(n1).
Вывод значения площади второго прямоугольника с помощью функции write(n2).
Сравнение площадей первого и второго прямоугольников и вывод соответствующего сообщения с помощью условного оператора if-else.
Завершение работы программы с помощью ключевого слова end.