Определить количество рулонов обоев - Pascal

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

Пожалуйста,помогите с задачей: Определить количество рулонов обоев, необходимых для оклейки 1, 2, 3 и т. д. комнат.

Решение задачи: «Определить количество рулонов обоев»

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

const
  a = 10;
  b = 20;
  c = 30;{размеры комнаты}
  a1 = 10;
  b1 = 5;{размеры рулона}
 
var
  s, k, x: integer;
 
begin
  s := a1 * b1;{площадь рулона}
  k := a * b;{площадь пола}
  x := k div s;
  k := b * c;{площадь двух стен}
  x += 2 * (k div s);
  k := a * c;{площадь двух других стен}
  x += 2 * (k div s);
  x := x * 4;{4 комнаты}
  writeln('нужно рулонов ', x);
end.

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

Константы:
- a = 10 (размер комнаты по ширине)
- b = 20 (размер комнаты по длине)
- c = 30 (высота комнаты)
- a1 = 10 (ширина рулона обоев)
- b1 = 5 (длина рулона обоев)
Переменные:
- s (площадь рулона обоев) типа integer
- k (площадь комнаты, стен, пола) типа integer
- x (количество рулонов необходимых для обоев) типа integer
Вычисление значений:
- s := a1 * b1; (вычисление площади рулона обоев)
- k := a * b; (вычисление площади пола)
- x := k div s; (вычисление количества рулонов обоев для пола)
- k := b * c; (вычисление площади двух стен)
- x += 2 * (k div s); (добавление количества рулонов обоев для двух стен)
- k := a * c; (вычисление площади двух других стен)
- x += 2 * (k div s); (добавление количества рулонов обоев для двух других стен)
- x := x * 4; (умножение полученного значения на 4, так как рассматривается 4 комнаты)
Вывод результата в консоль:
- writeln('нужно рулонов ', x); (вывод количества необходимых рулонов обоев)