Определить сколько процентов от всего количества элементов последовательности целых чисел составляют нечетные элементы.Паскаль.

var N,i,x,k:integer; begin;writeln('Сколько элементов в последовательности?');readln(N);writeln('Введите последовательность чисел');for i:=1 to N do  begin                    readln(x);     if odd(x) then               k:=k+1end;writeln(k/N*100,' %');           end.