1. С клавиатуры вводитсядет N чисел. Сколько среди них чётных?
2. Вводится последовательность чисел, заканчивающийся 0. Определить сколько чисел в этой последовательности.

var n,i,a,k: integer;beginwrite('Введите количество чисел (N): ');readln(n);for i := 1 to n dobeginwrite('Введите число: ');readln(a);if a mod 2 = 0 then k:=k+1;end;writeln('Количество чётных чисел: ',k)end.var a,k:integer;beginwrite('Введите число: ');readln(a);while a<>0 dobegink:=k+1;write('Введите число: ');readln(a)end;writeln('Количество чисел в последовательности: ',k)end.