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

Если шкафы и полки нумеровать с 1, то можно так:
var n,a,b:integer;
begin
write('n = ');
readln(n);
a:=(n-1) div (9*4)+1;
b:=(n-(a-1)*9*4-1) div 4+1;
writeln('Шкаф = ',a,'  полка = ',b);
end.

Пример:
n = 57
Шкаф = 2  полка = 6