Дан целочисленный одномерный массив из n-элементов.вывести на экран четные элементы стоящие на нечетных массивов через паскаль

Uses crt; const n=15; var a: array[1..n] of integer; i: integer; begin randomize; for i: =1 to n do begin a[i]: =random(100)-50; write(a[i]: 3); end; writeln; for i: =1 to n do if (a[i] mod 2=0) and (i mod 2< > 0) then write(a[i]: 3); end.

//pascalabc.net 3.2 сборка 1318 var   s,a: string;   i: integer;   c: char; begin   s: ='01234567';   for i: =1 to 3 do   begin     c: =s[length(s) div 2];     writeln('число больше ',c,'? ');     readln(a);     if a='да' then delete(s,1,length(s) div 2)       else     delete(s,length(s) div 2+1,length(s) div 2);   end; writeln(s); end.  пример работы программы: число больше 3? да число больше 5? нет число больше 4? нет 4

Var s: string;       k, kol: integer; begin     kol : = 0;     readln(s);     while pos(' ',s) < > 0 do   begin       k : = pos(' ',s);       if k < > 0 then           if k = 4 then begin             kol : = kol + 1;             delete(s,1,4);           end else             delete(s,1,k);       end;     if length(s) = 3 then begin           kol : = kol + 1;           delete(s,1,3);       end;     writeln(kol); end.