01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Задача на оператор CASE

Program Analyz;
{‘®бв ўЁвм Їа®Ја ¬¬г ¤«п ®ЇаҐ¤Ґ«Ґ­Ёп Є®«-ў  зҐв­ле Ё ­ҐзҐв­ле ­ вга «м­ле
зЁбҐ«, ўў®¤Ё¬ле б нЄа ­  б Ї®¬®ймо ®ЇҐа в®а  case}
var
chis,chet,nechet,nol,n,i:integer;
k:boolean;
begin
nol:=0;
chis:=0;
nechet:=0;
writeln('‚ўҐ¤ЁвҐ Є®«-ў® ­ вга «м­ле зЁбҐ«');
readln(n);
for i:=1 to n do
begin
writeln('‚ўҐ¤ЁвҐ ­ вга «м­®Ґ зЁб«®');
readln(chis);
If chis=0 then nol:=nol+1;
If odd (chis) then k:=true else k:=false;
case k of
false:chet:=chet+1;
true:nechet:=nechet+1;
end;
end;
If nol=n then writeln('‚ᥠўўҐ¤Ґ­­лҐ зЁб«  а ў­л 0')
else writeln('зЁб«® ­ҐзҐв­ле= ',nechet:2,'зЁб«® зҐв­ле= ',chet:2);
readln;
end.