var i,k:integer; a:array [0..20] of integer; begin a[1]:=1;
a[2]:=1;
k:=1;
repeat
a[k+2]:=1;
for i:=k+1 downto 2 do a[i]:=a[i]+a[i-1];
k:=k+1;
until k>=5;
for i:=1 to 6 do write(a[i]:5);
writeln
end.

输出：1 5 10 10 5