По номеру квартиры определить номер подъезда и этаж. (Линейный алгоритм) - Pascal ABC

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

По номеру квартиры определить номер подъезда и этаж. Квартира находится в пятиэтажном доме, на каждом этаже по четыре квартиры. Задачу решить без использования циклов и массивов. Заранее премного благодарен.

Решение задачи: «По номеру квартиры определить номер подъезда и этаж. (Линейный алгоритм)»

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

uses crt;
var k,p,e: longint;
begin
repeat
write('Введите номер квартиры k>0 k=');
read(k);
until k>0;
dec(k);//уменьшим номер квартиры, начнем счет с 0
p:=k div 20+1; //номер подъезда (делим номер квартиры(уменьшенный на 1)
               //на 20(квартир в подъезде))+1 (1-20,21-40 и т.д.)
e:=(k-(p-1)*20) div 4+1;//номер этажа (из номера квартиры вычитаем кол. квартир
                        //в предыдущих подъездах), делим на 4(квартир на этаже)+1
writeln('Подъезд № ',p,'  этаж ',e);
end.

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

В начале программы объявляются три переменные: k, p и e типа longint.
Затем используется цикл repeat, который продолжается до тех пор, пока пользователь не введет номер квартиры k больше 0.
Когда условие выполняется, программа переходит к следующему шагу.
Номер квартиры уменьшается на 1, чтобы начать отсчет с 0.
Значение переменной p вычисляется как (k div 20) + 1. Это дает номер подъезда, начиная с 1.
Значение переменной e вычисляется как ((k-(p-1)*20) div 4) + 1. Это дает номер этажа, начиная с 1.
Затем программа выводит на экран сообщение с номером подъезда и номером этажа.
После этого программа завершается.