Pascalsches Dreieck

program Pascal(input, output);

    const
        MaxArray = 32;
    var
        i, j, n: integer;
        a:       array [0..MaxArray] of integer;

    begin {Pascal}
        writeln('Berechnung eines Pascalschen Dreiecks.');
        writeln;
        writeln('Bis zur wievielten Zeile soll das Dreieck berechnet werden?');
        readln(n);
        if n > MaxArray then begin
            writeln('Das ist mir zu hoch...:-)');
            halt
        end; {if}
        for i:=1 to n do begin
            a[i] := 1;
            for j:=i-1 downto 2 do begin
                a[j] := a[j] + a[j-1]
            end; {for}
            for j:=1 to i do begin
                write(a[j], ' ');
            end; {for}
            writeln;
        end {for}
    end. {Pascal}