Помогите с программами по ПАСКАЛЮ!!
1)Дано натуральное число n. Составьте программу, которая определяет сколько цифр этого числа кратны 3.
______________________________________________________-
2)Даны натуральные числа n, a1,...an.Составьте программу, которая определяет количество членов последовательности a1,...an, являющихся нечетными числами.

 1)var   a,b,k : integer;  begin  readln (a);    k := 0;     While a > 0 do    begin     b := a mod 10;     a := a div 10;      if b mod 3 = 0 then       k := k +1;  end;    writeln (k); end.2) var   n,a,i,k : integer;    begin  readln (n);    k := 0;   for i := 1 to n do    begin     readln (a);      if a mod 2 = 1 then       k := k +1;   end;      writeln (k); end.