ASA X3.4 meeting No.33

b e g i n i n t e g e r N, IK, printer; i n t e g e r a r r a y A [0:19]; p r o c e d u r e L I N E S ; format 2 ( 'XB, X(6Z), / / ' , 57 -3 X N, N+I) ; p r o c e d u r e L I S T ( Q ) ; for K := 0 s t e p 1 u n t i l N d o Q(A[K]); printer := 8; output 1 (printer, ' ~ 20S//', 'PASCALSuTRIANGLE') ; for N : = 0 s t e p 1 u n t i l 19 d o b e g i n A [ N ] : = 1; f o r K : = N -1 s t e p --1 u n t i l 1 d o A [ K ] := A[K 1] + A[K]; out list (prinler, L I N E S , L IST) e n d e n d