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

Const
  N = 10;

var
  a: array[1..N] of integer;
  i, sum: integer;

begin
  for i := 1 to N do
  begin
    readln(a[i]);
    if a[i] mod 2 <> 0 then
      sum := sum + 1;
  end;
  writeln(sum / N * 100, '%')
end.