Дано целое неотрицательное число K. Напечатать «Треугольник Паскаля» -таблицу биномиальных m коэффициентов Cn для всех возможных значений m и n(0<=m<=n<=K)- Pascal(Паскаль)

uses crt;
var a:array[0..14,0..14]of integer;
    k,i,j,p:integer;
begin
clrscr;
repeat;
write('Введите натуральное число не более 14 k=');
readln(k);
until k in [0..20];
{Заполнение треугольника данными}
a[0,0]:=1;a[1,0]:=1;a[1,1]:=1;
for i:=2 to k do
   begin
    a[i,0]:=1;
    for j:=0 to i+1 do
    if j=i then a[i,j]:=1
    else a[i,j]:=a[i-1,j-1]+a[i-1,j];
  end;
{вывод треугольника}
if k<=10 then p:=4 else p:=5;{количество позиций под числа}
for i:=0 to k do
   begin
{вводим пробелы в начале каждой строки}
    write(' ':(k-i+1+((p div 2)-1)*(k-i)));
    for j:=0 to i do
    write(a[i,j]:p); {выводим треугольник}
    writeln;
   end;
writeln;
readln
end.

var
 i,n,f,j:integer;
 c:array[0..100] of longint;
 a:text;
 namefile:string[30];
begin
 Writeln('BBedute n-blu Homep ctpoku TpeygoLbHuka pascal9');
 Write('n=');
 Readln(n);
 Writeln('Bbedute HaumeHoBaHue tekcToBogo fauLa');
 readln(namefile);
 assign(a,namefile);
 rewrite(a);
 for i:=1 to n do
  begin
   c[0]:=1;
   c[i]:=0;
  end;
  write(a,'1':405);
  f:=400;
 for j:=1 to n do
  begin
  writeln(a);
  write(a,'1':f);
  f:=f-5;
   for i:=j downto 1 do
    c[i]:=c[i-1]+c[i];
   for i:=1 to n do
   begin
   if c[i]<>0 then
    write(a,c[i]:10);
   end;
  end;
  close(a);
end.

uses crt;
var n,i,j:integer;
function F(x,y:integer):integer;
begin
if (x=1)or(y=1)then F:=1      
else F:=F(x-1,y)+F(x,y-1);  
end;
begin 
clrscr; 
repeat 
write('Enter N:');
readln(n);
until n>0;  
for i:=1 to n do 
   begin
     write(' ':(2*(n-i)+1));
     for j:=1 to i do
       write(F(j,i-j+1):4);
       writeln;
   end;
readln   
end.

uses crt;
function Soch(a,b:byte):longint;
function Fac(x:byte):longint;
begin
if (x=0)or(x=1) then Fac:=1
else fac:=x*fac(x-1);
end;
begin
if a>b then
Soch:=Fac(a)div(Fac(b)*Fac(a-b))
else Soch:=Fac(b)div(Fac(a)*Fac(b-a))
end;
 
var  k,i,j,p:integer;
begin
clrscr;
repeat;
write('Введите натуральное число не более 12 k=');
readln(k);
until k in [0..12];
{вывод треугольника}
if k<=10 then p:=5 else p:=6;{количество позиций под числа}
for i:=0 to k do
  begin
    {вводим пробелы в начале каждой строки}
    write(' ':(k-i+1+((p div 2)-1)*(k-i)));
     if i=0 then write('0':p) else
     for j:=0 to i  do
     write(Soch(i,j):p);
     writeln;
   end;
writeln;
readln
end.