{* Задача 378 *}

Unit ZADACH378;
Interface
Implementation
Begin
 writeln('Проверить, является ли исходная матрица, составленная из целых чисел, нижней треугольной. Напечатать соответствующее сообщение.');
End.

Program my7;

Uses zadach378.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Const {* Постоянные значения *}
  n = 3;
Var {* Необходимые переменные *}
  prov : real;
  i    : integer;
  k    : integer;
  j    : integer;
  a    : Array[1..n, 1..n] Of real;
  txt  : text;
Begin
  clrscr; {* Очищаем экран *}
  assign(txt, 'c:/a.txt'); {* Связывание txt с файлом 'c:/a.txt' *}
  reset(txt); {* Открытие файла для чтения *}
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
      read (txt, a[i, j]);
    readln (txt);
  End;
  prov := 0;
  For i := 1 To n - 1 Do {* Увеличиваем i от 1 до n с шагом 1 *}
    For j := i + 1 To n Do
      If a[i, j]0 Then
      Begin
        prov := prov + i;
      End;
  If prov > 0 Then
    write ('NET!')
  Else write ('DA');
    close(txt); {* Файл txt будет закрыт *}
  readln; {* Ждем подтверждения пользователя *}
End.