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.