PROGRAM KHAYYAM;


VAR


  Pos,N,K:Integer;


FUNCTION Fact(K:Integer):LongInt;    {تابع بازگشتي محاسبه فاكتوريل}


BEGIN


  IF (K=0) OR (K=1) THEN Fact:=1 ELSE Fact:=K*Fact(K-1);


END;


FUNCTION Tarkib(K,I:Integer):longInt;    {تابع محاسبه تركيب}


BEGIN


  Tarkib:=trunc(Fact(K)/(Fact(I)*Fact(K-I)));


END;


PROCEDURE Blank;    {پروسيجر ايجاد فواصل خالي}


VAR I:Integer;


BEGIN


  FOR I:=1 TO Pos DO


    Write(' ');


  Pos:=Pos-3;


END;


PROCEDURE Satr(K:Integer);     ‌{پروسيجر ايجاد سطرهاي مثلث}


VAR I:Integer;


BEGIN


  FOR I:=0 TO K DO


    Write(Tarkib(K,I):6);


END;


BEGIN{Of Main}


  Pos:=33;    ‍{قرار دادن مكان نما در وسط صفحه نمايش}


  Write('Enter Your Number: ');    {گرفتن تعداد سطرهاي مثلث از كاربر}


  Readln(N);


  FOR K:=0 TO N DO


  BEGIN


    Blank;


    Satr(K);


    Writeln('');


  END;{Of For}


  Readln


END.{Of Main}