Дан массив целых чисел. выяснить: является ли k-й элемент массива четным числом

Const n = 12; var a: array [1..n] of integer;           i,c,b: integer; begin   randomize;   for i: =1 to n do       begin           a[i]: =random(21)-10;           write  (a[i],' ');       end;   writeln;   repeat       write ('c = ');       readln (c);   until  c in [1..n];   repeat       write ('b = ');         readln (b);   until b in [1..n];   if c< b then       for i: =c to b do write (a[i],' ')   else for i: =b to  c do write (a[i],' ');   readln; end.

У  меня  7  числа  день  рождения  -  информация  понятная, актуальная  если  7  число не  наступило,  и  неактуально если  прошло,  полезная  если  я  это  говорю  своему  другу,  и  бесполезна  если  говорю  мимо  идущему  прохожему которого  вижу  впервые,  достоверная  если  я  сказал  правду,  и  недостоверная  если  солгал,  полная  если  этого  достаточно  чтобы  понять когда  я  родился(говорили про текущий месяц),  и  неполная  если  я  просто  так  заикнулся  не  уточнив  месяц,  понятная  если  сказал  на    рускоязычному  человек,  непонятная  если  я  сказал  по    тому  кто    не  понимает(иностранцу к примеру).  если смысл понятен  то  можно  придумать  много  таких вариантов  даже  из  одного  примера, в  принципе  можно  и  на  каждый  случай  отдельные  приводить