[Bzzik]

а для n-ого количества ступенек пусть думает кампутер...
var
a,b,c,n:=integer;
begin
readln(n);
for a:=0 to n do
for b:=0 to n div 2 do
for c:= 0 to n div 3 do
if a + 2*b + 3*c = n then
step:=step+1;
writeln(step);
end.

если не прав, поправьте