Tam giac pascal Hay!!

Const fi=`PASCAL.INP`;       fo=`PASCAL.OUT`; Var   f1,f2: text;       n: byte;       a: array[1..100,1..100] of integer;       b: array[1..100] of string[100]; FUNCTION KT(a: integer): char;   Begin     KT:=chr(a+48);   End; PROCEDURE NHAP; Var i,j: integer;   Begin     assign(f1,fi); reset(f1);     read(f1,n);     For i:=1 to n do       For j:=1 to 2*n-1 do         a[i,j]:=0;     close(f1);   End; PROCEDURE TAO; Var i,j: integer;   Begin     a[1,n]:=1;     a[2,n-1]:=1;      a[2,n+1]:=1;     For i:=3 to n do       For j:=1 to 100 do         a[i,j]:=a[i-1,j-1]+a[i-1,j+1];   End; PROCEDURE GAN; Var i,j: integer;   Begin     For i:=1 to n do       For j:=1 to 100 do         if a[i,j] < 9 and a[i,j] <> 0 then b[i,j]:=KT(a[i,j])                        else b[i,j]:=` `;   End; PROCEDURE XUAT; Var i,j: integer;   Begin     assign(f2,fo); rewrite(f2);     For i:=1 to n do       Begin         For j:=1 to 2*n-1 do           write(f2,b[i,j],` `);           writeln(f2);       End;     close(f2);   End; BEGIN   NHAP;   TAO;   GAN;   XUAT; END.