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

var

N, k, i: integer;

begin

write ('Сколько чисел будем проверять: ');

readln (N);

k : = 0;

/ / Запускаем цикл N раз

/ / В теле цикла организовываем ввод проверяемого числа

/ / Выполняем проверку по условию и вывод сообщения

for i : = 1 to N do

begin

write ('Введите ', i,'-ое число ');

readln (k);

if k mod 2 = 0 then writeln ('Введенное число четное');

if k < 0 then writeln ('Введенное число отрицательное');

if (k > 0) and (k mod 2 0) then writeln ('Введенное число не является четным либо отрицательным');

end;

end.