program laba1_5;
uses
   System.SysUtils;
var
   N, i, j: Integer;
   A: array of array of Integer;
   IsValid: Boolean;
   const MIN_SIZE = 0;
   const MAX_SIZE = 21;
begin
   IsValid := False;
   N := 0;
   Writeln('Данная программа строит N строк треугольника Паскаля');
   Write('Введите число N в диапазоне ', MIN_SIZE + 1, '..', MAX_SIZE - 1, ': ');
   repeat
      try
         Readln(N);
         if (N > MIN_SIZE) and (N < MAX_SIZE) then
            IsValid := True
         else
            Writeln('Введите число N в заданном диапазоне');
      except
         Writeln('Введите корректные данные');
      end;
   until IsValid;
   SetLength(A, N);
   Writeln(N, ' строк треугольника Паскаля: ');
   Dec(N);
   for i := 0 to N do
   begin
      SetLength(A[i], i + 1);
      A[i,0] := 1;
      A[i,i] := 1;
      for j := 1 to i - 1 do
         A[i,j] := A[i - 1,j - 1] + A[i - 1,j];
      for j := 0 to i do
         Write(A[i,j],' ');
      Writeln;
   end;
   Writeln('Нажмите Enter для выхода из программы');
   Readln;
end.