Program PascaluvTrojuhelnik; const MaxN = 15; FF = 6; type vektor = array [1..MaxN] of integer; var I,J : integer; A : vektor; D : 3..MaxN; begin readln(D); for I:=1 to D do begin A[1]:=1; A[I]:=1; for J:=I-1 downto 2 do A[J]:=A[j-1]+A[J]; write(' ':3*(D-I) ); for J:=1 to I do write (A[J]:FF); writeln; end; end.