Вывести четные элементы

program chotnoe_ic_massiva;
var a:array of integer;
n,i:integer;
begin
  read(n);
  setlength(a,n);
  for i:=0 to n-1 do read(a[i]);
  i:=0;
  while i<=n-1 do begin
    write(a[i]:4);
    i:=i+2;
  end;
end.

begin
  var a := ReadArrInteger(ReadInteger('Введите кол-во элементов массива:'));
  a.Where(i -> not Odd(i)).Println;//Четные
  a.Where(i -> Odd(i)).Println;//Нечетные
end.

program chotnoe_ic_massiva;
 
var
  a: array of integer;
  n, i: integer;
 
begin
  read(n);
  setlength(a, n);
  for i := 0 to n - 1 do read(a[i]);
  write('Четные:');
  for i := 0 to n - 1 do 
    if not Odd(a[i])
      then write(a[i], ' ');
  writeln;
  write('Нечетные:');
  for i := 0 to n - 1 do 
    if Odd(a[i])
      then write(a[i], ' ');
end.

const n=20;
var i:byte;
  a:array[1..n]of byte;
  
begin
  for i:=1 to n do begin
    a[i]:=random(76)+10;
    write(a[i]:3); end;
  writeln;
  write('Четные числа:');
  for i:=1 to n do
    if a[i] mod 2 = 0 then
      write(a[i]:3);
end.

function Odd(i: integer) :=not i mod 2 = 0;

function odd(x:longint):boolean;

const n=25;
var i:integer;
  a:array[1..n]of integer;
  
begin 
  for i:=1 to n do begin
    a[i]:=random(65)+35;
    write(a[i]:3); end;
  writeln;
  for i:=1 to n do
    if odd(a[i]) then
      write(a[i]:3);
end.

const n=25;
var i:integer;
  a:array[1..n]of integer;
  
begin
  // randomize;
  for i:=1 to n do begin
    a[i]:=random(30)+25;
    write(a[i]:3); end;    
end.

begin
   var a:=RandomArr(5,25,50)
end.

const n=25;
type matrix=array[1..n]of integer;
var b:matrix;
 
procedure massiv(var a:matrix);
var i:integer;
begin
  for i:=1 to n do begin
    a[i]:=random(51)-25;
    write(a[i]:4); end;
end;
 
begin
  massiv(b);
end.

var a:byte;
 
function prost(a:integer):boolean;
var i:integer;
  f:boolean;
  
begin
  if a<2 then
    f:=false
  else begin
    f:=true;
    i:=2;
    while (sqr(i)<=a) and f do
      if a mod i <> 0 then
        inc(i)
      else
        f:=false; end;
  prost:=f;
end;
 
begin
  write('Введите натуральное число > 2:');
  readln(a);
  if prost(a) then
    writeln('- это простое число')
  else
    writeln('- это составное число');
end.

var a:byte;
 
function prost(self:integer):boolean;extensionmethod;
var i:integer;
  f:boolean;
  
begin
  if self<2 then
    f:=false
  else begin
    f:=true;
    i:=2;
    while (sqr(i)<=self) and f do
      if self mod i <> 0 then
        inc(i)
      else
        f:=false; end;
  prost:=f;
end;
 
begin
  write('Введите натуральное число > 2:');
  readln(a);
  if a.prost then
    writeln('- это простое число')
  else
    writeln('- это составное число');
end.

begin
  if a<2 then
    f:=false
  else begin
    f:=true;
    i:=2;
    while (sqr(i)<=a) and f do
      if a mod i <> 0 then
        inc(i)
      else
        f:=false; end;
  result:=f;
end;