С клавиатуры вводится натуральное четырёхзначное число n. Выведите количество четных цифр этого числа

varn,g,s:integer;beginwriteln('Введите число');readln(n);for var i:=1 to 4 dobeging:=n mod 10;if g mod 2=0 then inc(s);n:=n div 10;end;writeLn(s);end.нужен другой язык - пиши