Дан целочисленный массив размера 20, числовые значения которого вводятся с клавиатуры. Вывести все содержащиеся в данном массиве начетные числа в порядке убывания их индексов, а также их количество.

var      a: array [1..20] of integer;         i,k:integer; Begin     Writeln('Перечислите элементы массива: ');      For i:=1 to 20 do      read(a[i]);         For i:=20 downto 1 do             begin                   If ((a[i] mod 2) <>0) then                             begin                                   k:=k+1;                                   write(a[i]:2);                     end;          end;           writeln(' kol= ',k); // End.