سلام

سورس کد برنامه مثلث خیام پاسکال با pascall رو واستون آماده کردم

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}