Лесенка

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

Входные данные

Во входном файле INPUT.TXT записано натуральное число N (1 ≤ N ≤ 100) – количество кубиков в лесенке.

Выходные данные

В выходной файл OUTPUT.TXT необходимо вывести число лесенок, которые можно построить из N кубиков.

Примеры

№	INPUT.TXT	OUTPUT.TXT
1	3	2
2	6	4

var
d : longint;
N : integer;
f,f1:text;
procedure stup (a, b : integer);
var
i : integer;
begin
for i := a to b do
stup (i + 1, b-i);
if (b = 0)
then
inc (d);
end;
begin
assign(f,'input.txt');
reset(f);
assign(f1,'output.txt');
rewrite(f1);
read (f,N);
d := 0;
stup (1, N);
write (f1,d);
close(f);
close(f1);
end.