[Bargest]

Создаешь консольный проект.

Код:

program project1;

{$APPTYPE CONSOLE} //как-то так, не помню точно. Делфа сама напишет.

uses sysutils;

var a,b:array[1..100]of integer;//real,extended... Зависит от того какие числа
     i,j,n:integer;
     temp:integer;//real, extended...

begin
 writeln('Write N');
 readln(n);
 writeln('Enumerate elements:');
 for i:=1 to n do
   readln(a[i]);
 
 for i:=1 to n div 2 do
   b[i]:=a[i*2];

 for i:=1 to n do
  for j:=1 to n do
   if b[i]>b[j] then
   begin
    temp:=b[j];
    b[j]:=b[i];
    b[i]:=temp;
   end;
  
 for i:=1 to n do
  write(b[i],' ');
end.

Как-то так. Тот же самый паскаль.