написать программу которая запрашивает N целых чисел и сообщает сколько было введено нечетных чисел

Program asd; const n=5; //любое число nVar k,i:integer; a:array[1..n] of integer;Begin k:=0;For i:=1to n doread (a[i]); For i:=1 to n do beginIf a[i] mod 2<>0 then k:=k+1;end;Writeln ('k=',k);End.