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

Спасибо огромное! =)

var a:array[1..10] of integer;b,c,i:integer;begin writeln('Write 10 numbers:'); for i:=1 to 10 do  read(a[i]); b:=0; c:=0; for i:=1 to 10 do  if a[i] mod 2=0   then b:=b+1   else c:=c+1; writeln('Even numbers:',b); // Четных writeln('Odd numbers:',c);  // Нечетных readlnend.