var
a, b, c, d, k: longint;
begin
read(a, b, c, d);
k := 0;
if a mod 2 = 0 then k := k + 1;
if b mod 2 = 0 then k := k + 1;
if c mod 2 = 0 then k := k + 1;
if d mod 2 = 0 then k := k + 1;
writeln(k);
end.
Интерпретация
Познавательная, раскрывающая
Направляет, изучает, показывает
Интерпретация - это логотип Викисловаря
Истолкование
Количество последовательностей будет равно количеству двоичных чисел, которые можно записать с помощью 5 символов:
2^5=32
https://rextester.com/l/pascal_online_compiler
Вот ссылка на онлайн компилятор