Спросите у пользователя, сколько нужно проанализировать чисел, а затем запросите эти числа и сделайте для каждого вывод, является ли оно четным или отрицательным. (Паскаль)

var

a : array [1 ... 100] of integer;

n, i : integer;

flag : boolean;

begin

write ('Введите количество чисел: ') ;

readln (n) ;

for i : = 1 to n do

begin

write (i, ' - ое число = ') ;

readln (a[i]) ;

end;

for i : = 1 to n do

begin

write (i, ' - ое число ') ;

if a[i] < 0 then

begin

write (' отрицательно ') ;

flag : = true;

end;

if a[i] mod 2 = 0 then

begin

write ('четно ') ;

flag : = true;

end;

if not flag write ('никакое') ;

flag : = false;

writeln;

end;

end.