Даны две последовательности целых чисел: a_1,a_2,…,a_8 и b_1,b_2,…,b_8 . Найти количество четных чисел в первой из них и количество нечетных во второй. (Определить функцию, позволяющую распознавать четные числа).

// Код на паскале   var   a, b: array [1 .. 8] of longint;   i, ans1, ans2: byte;    function check(var x: longint): boolean; // функция проверки числа на четность begin   if x mod 2 = 0     then check := true   else     check := false; end;   begin   ans1 := 0;   ans2 := 0;   for i := 1 to 8 do   begin     read(a[i]);  //читаем число а_і     if check(a[i]) then //если четное, то ...       inc(ans1);  //увеличиваем ответ_1 на 1   end;   for i := 1 to 8 do   begin     read(b[i]);   //читаем число b_i     if not check(b[i]) then  // если нечетное, то ...       inc(ans2); // увеличиваем ответ_2 на 1   end;   writeln('Количество четных чисел в первой последовательности = ', ans1);   writeln('Количество нечетных чисел во второй последовательности = ', ans2); end.