Составить блок схем вычесления сколько нечетных чисел среди n введенных

program ex1; var i,n,a,k:integer; begin write('сколько чисел будем вводить '); readln(n); for i:=1 to n do begin write('введите ',i,' число: ');readln(a); if (a mod 2<>0) then k:=k+1; end; writeln(); writeln('среди введенных чисел ',k,' нечетных'); end.