uses crt;
var
a:array[1..15] of byte;
b:array[1..15] of byte;
k,i,j,c:byte;
begin
clrscr; write('Pascal üçgeninin kaç satiri gösterilsin...: [1..15] ;) ');readln(c); clrscr;
c:=c-2;
k:=1;
textcolor(k);
writeln('1');
k:=k+1;
textcolor(k);
writeln('1 1');

for i:=1 to c do  begin a[i]:=1; b[i]:=1; end;
   for i:=1 to c do
      begin
          k:=k+1;
          textcolor(k);
          for j:=1 to i do  if j=i then b[j+1]:=a[j]+1 else b[j+1]:=a[j]+a[j+1];
             for j:=1 to i+1 do  write (b[j],' ');
                write ('1');
                for j:=1 to 15 do a[j]:=b[j];
writeln;
end;
readln;
end.