{* Задача252 *}

REM basic

' Вывести на экран первые n строк треугольника Паскаля


CLS

INPUT "Введите количество строк ", n


Dim M(n, n)
For i = 1 To n
   M(i, 1) = 1                  
        For j = 2 To i - 1
            M(i, j) = M(i - 1, j - 1) + M(i - 1, j)
        Next j
   M(i, i) = 1                  
Next i
     
      
For i = 1 To n
        For j = 1 To n
            If M(i, j)  0 Then PRINT M(i, j);  Else Exit For
        Next j
        PRINT
Next i
End