треугольник паскаля до 20

Ответ от Gennady[гуру]
Доброго времени суток.Вам найти или программку? Для найти в поисковике набираети "треугольник паскаля". Вы удивитесь, сколько ссылок будет. А вот программкаprogram PasTriangle;uses Crt;const N = 11;var i, j : Integer; A : array[1..N, 1..N] of Byte;begin {инициализация массива} for j:= 1 to N do A[j, 1]:= 1; {заполнение массива} for i:= 3 to N do for j:= 2 to i-1 do A[i, j]:= A[i-1, j-1]+A[i-1, j]; {отображение} ClrScr; for i:= 1 to N do begin for j:= 1 to N-i do Write(' ':3); for j:= 1 to i-1 do Write(a[i, j]:6); WriteLn; end; WriteLn; WriteLn('Нажмите Enter'); ReadLn;end. Удачи!