// Код на паскале
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.