Ответ: Vara,b,c,s:integer;Begins:=0;writeln(‘Введите 3 числа’);readln(a,b,c);If a mod 2=0 then s:=s+1;If b mod 2=0 then s:=s+1;If c mod 2=0 then s:=s+1;writeln(‘Количество четных чисел=’,s);end.