Сколько нужно рулонов обоев для оклейки комнаты - Pascal

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

Сколько нужно рулонов обоев для оклейки комнаты длиной m метров, шириной n метров и высотой h метров, если ширина рулона k см, а длина 10 метров. Известны так же S1 и S2 – площади дверных и оконных проемов.

Решение задачи: «Сколько нужно рулонов обоев для оклейки комнаты»

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

var s,m,n,h,k,s1,s2 : Real;
begin
  Write('m ='); ReadLn(m);
  Write('n ='); ReadLn(n);
  Write('h ='); ReadLn(h);
  Write('k ='); ReadLn(k);
  Write('s1='); ReadLn(s1);
  Write('s2='); ReadLn(s2);
  s := (m*n*h-s1-s2)*10/k;
  if rount(s) < s then s := s + 1;
  WriteLn(Trunc(s) );
end.

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

Объявляются переменные:
- s, m, n, h, k, s1, s2 типа Real.
Считываются значения переменных:
- m с клавиатуры;
- n с клавиатуры;
- h с клавиатуры;
- k с клавиатуры;
- s1 с клавиатуры;
- s2 с клавиатуры.
Вычисляется значение переменной s:
- Значение переменной s равно выражению (m*n*h-s1-s2)*10/k.
Проверяется условие и корректируется переменная s:
- Если значение функции round(s) (округление переменной s) меньше, чем s, то s увеличивается на 1.
Выводится на экран целая часть переменной s:
- Выводится значение функции Trunc(s) (целая часть переменной s) на экран.