Составьте программу по информатике пожалуйста) ) спасибо заранее)

Естественно числа всегда прилетают с неба хД

sum_chet:=0;
sum_nech:=0;

for n:=1 to kolichestvo do
if odd(chislo[n]) then sum nech:=sum_nech+chislo[n]
else sum chet:=sum_chet+chislo[n];

writeln(sum_chet,' ',sum_nech);