Pascal Üçgeni

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.