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. . Const fi=&apos ;PASCAL. INP'; fo=&apos ;PASCAL. OUT'; Var f1,f2: text; n: byte; a: array[1 100,1 100]