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

Question

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

Answer 1

var
  a,b,n:integer;
begin
  writeln('введите последовательность целых чисел через пробел, enter-конец ввода');
  write('>');
  while not eoln do begin
    read(a);
    if a mod 2<>0 then b:=b+1;
    n:=n+1;
  end;
  writeln('нечетные числа составляют ',b/n*100:6:2,'%');
end.