Here is my program. If you can find what's wrong with it -
help meprogram staircase;
const max=60;
var n,i,j:longint;
a:array[0..max,0..max]of real;
 procedure br(n:integer);
 var i,j:integer;
 begin
 for i:=1 to n do
 for j:=1 to n do
 if j=1 then a[i,j]:=0
 else if (j*(j+1)div 2)<i then a[i,j]:=0
 else if j=i then a[i,j]:=1+a[j,j-1]
 else if (j=i-1)then a[i,j]:=1+a[i,j-1]
 else if j>i then a[i,j]:=a[i,i]
 else a[i,j]:=a[i-j,j-1]+a[i,j-1];
 end;
begin
readln(n);
br(n);
writeln(round(a[n,n]-1));
end.

Thanks!