Для решения задачи на языке Паскаль можно использовать следующий алгоритм:

1. Вычислить общее количество учебников: TotalBooks := k * N;
2. Вычислить количество учебников, которые помещаются в одном шкафу: BooksPerCabinet := P * T;
3. Вычислить количество полностью заполненных шкафов: X := TotalBooks div BooksPerCabinet;

Пример кода на Паскале:

program CountCabinets;
var
    k, N, P, T, TotalBooks, BooksPerCabinet, X: Integer;
begin
    { Ввод данных }
    ReadLn(k, N, P, T);
    
    { Вычисления }
    TotalBooks := k * N;
    BooksPerCabinet := P * T;
    X := TotalBooks div BooksPerCabinet;
    
    { Вывод результата }
    WriteLn(X);
end.

Чтобы решить задачу, давайте разберем ее по шагам.

1. Определим общее количество учебников:

   У нас есть k курсов, и для каждого курса привезли N учебников. Чтобы найти общее количество учебников, нужно просто умножить количество курсов на количество учебников для каждого курса:

   Общее количество учебников = k * N

2. Определим, сколько учебников помещается на одной полке:

   На каждой полке помещается T учебников. Теперь нужно определить, сколько учебников можно разместить на всех полках:

   Общее количество учебников на всех полках = P * T

3. Определим, сколько шкафов можно заполнить:

   Теперь, чтобы узнать, сколько шкафов можно полностью заполнить новыми учебниками, нужно разделить общее количество учебников на общее количество учебников, которое помещается в одном шкафу. Количество учебников в одном шкафу можно рассчитать, как:

   Количество учебников в одном шкафу = P * T

   Теперь, чтобы найти количество полностью заполненных шкафов, нужно выполнить деление:

   X = Общее количество учебников / (P * T)

Теперь, когда мы разобрали шаги, давайте напишем код на языке Паскаль для решения этой задачи:

program FillBookshelves;
var
  k, N, P, T: integer;
  totalBooks, booksPerShelf, X: integer;
begin
  { Ввод данных }
  writeln('Введите количество курсов (k):');
  readln(k);
  writeln('Введите количество учебников для каждого курса (N):');
  readln(N);
  writeln('Введите количество полок в шкафу (P):');
  readln(P);
  writeln('Введите количество учебников на одной полке (T):');
  readln(T);
  
  { Вычисления }
  totalBooks := k * N; { Общее количество учебников }
  booksPerShelf := P * T; { Общее количество учебников в одном шкафу }
  
  if booksPerShelf > 0 then
    X := totalBooks div booksPerShelf { Количество полностью заполненных шкафов }
  else
    X := 0; { Если полок нет, шкафов не будет }
  
  { Вывод результата }
  writeln('Количество полностью заполненных шкафов: ', X);
end.

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