В Pascal ABCкто еще знает такую задачу помогите кому не сложно) Программа которая…

Var a,b: integer; i: char; beginread (a); b: =0; for i: ='1' to 'a' doif (a>=1) and (a <= 9) then b: =b+1; if b mod 2=0 thenwriteln ('четное '); if b mod 2=1 then writeln ('не четное '); end.