Pascal's triangle: Difference between revisions

=={{header|Modula-2}}==

<lang modula2>MODULE Pascal;

FROM FormatString IMPORT FormatString;

FROM Terminal IMPORT WriteString,WriteLn,ReadChar;

PROCEDURE PrintLine(n : INTEGER);

VAR

buf : ARRAY[0..63] OF CHAR;

m,j : INTEGER;

BEGIN

IF n<1 THEN RETURN END;

m := 1;

WriteString("1 ");

FOR j:=1 TO n-1 DO

m := m * (n - j) DIV j;

FormatString("%i ", buf, m);

WriteString(buf)

END;

WriteLn

END PrintLine;

PROCEDURE Print(n : INTEGER);

VAR i : INTEGER;

BEGIN

FOR i:=1 TO n DO

PrintLine(i)

END

END Print;

BEGIN

Print(10);

ReadChar

END Pascal.</lang>