Const
C = 100;
var n, i : Integer;
a : array [1..C] of Integer;
flag : Boolean;
begin
Write('N: ');
Readln(n);
if (n < 1) or (n > C) then
begin
Write('Ошибка, недопустимое число.');
Exit;
end;
for i := 1 to n do
begin
Write('a[', i,']:= ');
Readln(a[i]);
end;
flag := False;
for i := 1 to n do
if a[i] < 1 then
begin
flag := True;
Break;
end;
if flag then Writeln('НЕТ') else Writeln('ДА');
Readln;
end.