Вычисление площади поверхности комнаты - Pascal

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

Написать программу, учитывая необходимые типы данных, для вычисления площади поверхности стен комнаты. Длина больше высоты в 2 раза, длина составляет 10/7 ширины. Пользователь вводит ширину. Сколько банок краски нужно, чтобы покрасить поверхность стен этой комнаты, если 1 банкой можно покрасить 7 м2?

Решение задачи: «Вычисление площади поверхности комнаты»

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

var sh,dl,vs,s:real;
     b:integer;
...................................
dl:=2sh;//длина
vs:=10*sh/7;//высота
s:=2*vs*(sh+dl);//площадь
if frac(s/7)=0 then b:=trunc(s/7) else b:=trunc(s/7);//банки

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

В начале кода объявляются переменные: - sh (ширина) типа real; - dl (длина) типа real; - vs (высота) типа real; - s (площадь) типа real; - b (количество банков) типа integer.
Затем происходит присваивание значений переменным: - dl присваивается значение 2sh; - vs присваивается значение 10sh/7; - s присваивается значение 2vs*(sh+dl).
Далее выполняется проверка на целочисленность значения s/7 и присваивание переменной b значения s/7 или truc(s/7) в зависимости от результата проверки.
В конце кода выполняется присваивание переменной b значения s/7 или truc(s/7) в зависимости от результата проверки.