Pascalov trojuholnik - bez kombinačného čísla!!!!!!!!!!!!!!!

program pascalov_tojuh;

uses crt;

var a:array [0..15,0..15] of integer;

i,j,k:integer;

BEGIN

clrscr;

a[1,1]:=1;

gotoxy (41,1);

writeln (a[1,1]);

for i:=2 to 10 do

BEGIN

for j:=1 to i do

BEGIN

a[i,j]:=a[(i-1),j]+a[(i-1),j-1];

gotoxy (4*(10-i)+6*j,i);

write (a[i,j],'  ');

END;

writeln;

END;

readln;

END.