Перевести код с Pascal - C (СИ) (78998)

Program zadanie2;
uses crt;
var a:array[0..14,0..14]of integer;
     k,i,j,p:integer;
begin
       clrscr;
       repeat;
                write('Введите натуральное число не более 13 k=');
                readln(k);
       until k in [0..13];
       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]);
                   writeln;
            end;
       writeln;
       readln
end.