34 lines
580 B
Plaintext
34 lines
580 B
Plaintext
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.
|