Составить программу которая вводит 5 чисел и подсчитывает количество четных и нечётных чисел
ПОЖАЛУЙСТА !!!!!!!!!!!!срочно нужно

vara,b,c: integer;beginreadln(a);c:=0;while a<>0 dobeginb:= a mod 10;a:= a div 10;if x mod 2=0 then c:=c+1;end;writeln(c)end.

var a,z,q:integer;beginreadln(a);q:=0;while a<>0 dobeginz:=a mod 10;a:=a div 10;if a mod 2=0 thenq:=q+1;end;writeln(q);end.