Источник звуковой информации. источник зрительной информации

1)Сначала взять чайник, выбор чайника, если не сделан, то попросить выбрать, если да, то
2)Налить воду в чайник, выбор воды, горячая или холодная
3)Дождаться пока вода вскипятится
4)Взять чашку, выбор чашки, если чашка не выбрана, то попросить выбрать, если да, то
5)Налить кипяченую воду в чашку
6)Взять заварку, выбор заварки
7)Заварить чай, спросить вы хотите заварить именно этот чай? - если нет, то начать сначала, если да, то
8)Взять сахар
9)Добавить сахар в чай ложкой
10)Размешать, попросить попробовать чай, если чай не понравился, тогда начать сначала, если понравился, то
11)спросить:"Вы хотите что-нибудь к чаю?" - Если нет, то пить чай, если да, то
12)Взять что-нибудь к чаю, предложить выбор, что можно взять к чаю, после выбора
13)Пить чай

Общее количество учебников равно 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.