01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Чётные и Нечётные числа+ / ALEX4B

PROGRAM Laba4B;
USES CRT;
VAR
CHIS,I,N,CHET,NECHET,ZERO:INTEGER;
K:BOOLEAN;
BEGIN
CLRSCR;
ZERO:=0;
CHET:=0;
NECHET:=0;
WRITELN(' ЏђЋѓђЂЊЊЂ ЋЏђ…„…‹…Ќ€џ ЉЋ‹€—…‘’‚Ђ —…’Ќ›• € Ќ…—…’Ќ›• —€‘…‹');
WRITELN;
WRITELN;
WRITE('‚‚…„€’… ЉЋ‹€—…‘’‚Ћ ЌЂ’“ђЂ‹њЌ›• —€‘…‹:');
READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITE('‚‚…„€’…',I:2,'-®Ґ —€‘‹Ћ:');
READLN(CHIS);
BEGIN
IF CHIS=0 THEN ZERO:=ZERO+1;
END;
IF (ODD(CHIS)) THEN K:=TRUE
ELSE K:=FALSE;

CASE K OF
FALSE : CHET:=CHET+1;
TRUE : NECHET:=NECHET+1;
END;
END;

IF ZERO=N THEN
WRITELN('‚‘… ‚‚…„ЌЌ›… —€‘‹Ђ - Ќ“‹€ !')
ELSE
WRITELN;
WRITELN;
WRITELN(' ЉЋ‹€—…‘’‚Ћ Ќ…—…’Ќ›• —€‘…‹ ђЂ‚ЌЋ:',NECHET:2);
WRITELN;
WRITELN(' ЉЋ‹€—…‘’‚Ћ —…’Ќ›• —€‘…‹ ђЂ‚ЌЋ:',CHET:2);
WRITELN;
WRITELN;
WRITELN(' ЉЋЌ…– ЏђЋѓђЂЊЊ› .');
WRITELN(' ‘ЏЂ‘€ЃЋ ‡Ђ ‚Ќ€ЊЂЌ€… !');
READLN;
END.