<span>var</span>
<span> a : array [1..100] of integer;</span>
<span> n, i : integer;</span>
<span> flag : boolean;</span>
<span>begin</span>
<span> write ('Введите количество чисел: ');</span>
<span> </span><span>readln (n);</span>
<span> for i := 1 to n do</span>
<span> begin</span>
<span> write (i, '-</span><span>ое </span><span>число</span><span> = ');</span>
<span> readln (a[i]);</span>
<span> end;</span>
<span> for i := 1 to n do</span>
<span> begin</span>
<span> write (i, '-</span><span>ое</span><span>число</span><span> ');</span>
<span> if a[i] < 0 then </span>
<span> begin</span>
<span> write ('</span><span>отрицательно</span><span>');</span>
<span> flag := true;</span>
<span> end;</span>
<span> if a[i] mod 2 = 0 then</span>
<span> begin</span>
<span> write ('четно</span><span>');</span>
<span> flag := true;</span>
<span> end;</span>
<span> if not flag write ('никакое');</span>
<span> flag := false;</span>
<span> writeln;</span>
<span>end;</span>
<span>end.</span>