s-3.pas

Tuzi＿pascal ＰＡＳＣＡＬ写的

PROGRAM tuzi(input,output);
  VAR
    n,number:integer;
  FUNCTION tu(yuefen:integer):integer;
    BEGIN
      IF yuefen=1
        THEN tu:=1
        ELSE IF yuefen=2
               THEN tu:=1
               ELSE tu:=tu(yuefen-1)+tu(yuefen-2);
    END;
  BEGIN
    read(n);
    number:=tu(n);
    writeln(n:10,number:10);
  END.