Что послужило толчком для создания первой сети? Кто принимал участие в создании? Первая попытка соединения была удачной? Какое слово/словосочетание передавали при первых тестах? Когда произошло удачное соединение? Сколько километров было между компьютерами? ​

Общее количество учебников равно k*N.
В шкаф помещается P*T учебников.
Количество полностью заполненных шкафов Х равно целой части от деления k*N на P*T

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var k:=ReadInteger('Количество курсов:');
  var n:=ReadInteger('Количество учебников для каждого курса:');
  var p:=ReadInteger('Количество полок в шкафу:');
  var t:=ReadInteger('Количество учебников на полке:');
  Writeln('Будет полностью заполнено шкафов: ', (k*n) div (p*t))
end.