Составьте блок-схему алгоритма определения количества четных чисел среди заданных целых чисел 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.