СРОЧНО!!!
Помогите Составить программу в паскале из блок схемы

Спасибо большое Выручил

var n,k:integer;beginwriteln('n=',n);readln(n);k:=0;while n<>0 do beginif n mod 10 mod 2 =1 then k:=k+1;n:=n div 10;end;writeln('k=',k);end.