program newBooks;
var
k, N, P, T, X: integer;
begin
writeln('Введите количество курсов: ');
readln(k);
writeln('Введите количество учебников на каждом курсе: ');
readln(N);
writeln('Введите количество полок в книжном шкафу: ');
readln(P);
writeln('Введите количество учебников, помещающихся на одной полке: ');
readln(T);

X := (N k) div (P T);

writeln('Можно полностью заполнить ', X, ' шкафов учебниками.');
end.