Kod programu rysującego trójkąt Pascala o podanej liczbie wierszy, nie większej od 12. Ograniczenie wynikające z kwestii estetyki, gdyż dla większej liczby wierszy trójkąt nie wygląda jak trójkąt. Choć program poprawnie liczy kolejne elementy n-tego wiersza.
program TrojkatPascala;
uses
Crt;
var
i,j, n : integer;
Wiersz : array[0..12] of integer;
begin
WriteLn('Podaj liczbe rzedów');
ReadLn(n); //Wczytujemy liczbe wierszy
if n > 12 then halt;
ClrScr;
for i := 0 to n do
begin
Wiersz[i] := 1;
for j := i - 1 downto 0 do //Liczymy kolejne elementy wiersza 
begin
Wiersz[j] += Wiersz[j - 1];
end;
GoToXY((n - i) * 2, WhereY) ; //Przesuniecie wzgledem wierzcholka
for j := 0 to i do
begin
Write(Wiersz[j]:3, ' '); //Wypisujemy kolejne elementy
end;
WriteLn;
end;
end.
