{* Задача 514 *}

Unit ZADACH514;
Interface
Implementation
Begin
 writeln('Есть не более 10 чисел. Правда ли что среди чисел есть положительные и отрицательные??');
End.

Program zadach514;

Uses zadach514.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  a : integer;
  m : integer;
  n : integer;
  i : Array [ 1...10] Of integer;
Begin
  For a := 1 To 10 Do {* Переменная a увеличивается с 1 до 10 *}
    read (i[a]);
  m := 0;
  n := 0;
  For a := 1 To 10 Do {* Увеличиваем a от 1 до 10 с шагом 1 *}
  Begin
    If i[a] 0 Then
      n := n + 1;
  End;
  If ( m > 0) And (n > 0) Then
    writeln ('da')
  Else writeln ('nety');
End.