Составьте блок-схему алгоритма определения количества четных чисел среди заданных целых чисел a b и c

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.