Определите псевдокод.
Если n = 5, каков результат выполнения псевдокода?
Алгоритм является произведением чисел
(arg целое число n, результат целое число P)
заданный | n> 0
требуется | P = 1 * 2 * 3 * ... * n
начало целое і
введите n; P: = 1
нц i от 1 до n
P=P*i
кц
вывод “P=“,P
конец

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

begin
  var c1:=ReadReal('Цена первой покупки:');
  var c2:=ReadReal('Цена второй покупки:');
  var c3:=ReadReal('Цена третьей покупки:');
  var s:=c1+c2+c3; Writeln('Сумма к оплате: ',s);
  var p:=ReadReal('Внесена сумма:');
  Writeln('Причитается сдача: ',p-s)
end.

Пример
Цена первой покупки: 152.40
Цена второй покупки: 375
Цена третьей покупки: 140.62
Сумма к оплате: 668.02
Внесена сумма: 700
Причитается сдача: 31.98

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