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

почитай тут 

ну вроде "алгоритм" переходит в "терминал", хотя по буквам не получается - только последние 5 нормально встают и то, если в алфавите нет ё и й

var

s,n,i: integer;

begin

write('введите количество чисел');

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.

(12-3): (4+5)=1

1х2х3-4+5-6=1

(12: 3+4+5): (6+7)=1

(1+2-3+4+5+6-7): 8=1