В каждом шкафу 9 полок, на каждой полке по 4 книги. Напишите программу, определяющую, в каком по номеру шкафу и на какой полке находится n-я книга. паскаль

Предыдущий
вопрос Следующий
вопрос

program BookLocation;
var
n, shelf, book: integer;
begin
writeln('Введите номер книги (от 1 до 36): ');
readln(n);
shelf := (n - 1) div 36 + 1;
book := ((n - 1) div 4) mod 9 + 1;
writeln('Книга ', n, ' находится в шкафу ', shelf, ', на полке ', book);
end.

Программа получает от пользователя номер книги от 1 до 36 и определяет в каком шкафу и на какой полке находится эта книга.