Ответ:

var

 a: array[1..5] of integer;

 i,b: integer;

begin

 b:= 0;

 for i:= 1 to 5 do

   readln(a[i]);

 write(a);

 for i:=1 to 5 do

   begin

     if a[i] mod 2 = 1 then

       b:= b + 1;

   end;

 write('Количество нечетных чисел: ',b)

end.