Рrogram Wtr;

 Const
 Nmax=100;
 Var
 X : Array[1..Nmax] Of Real;
 i, n : Integer;

Begin
 Writeln('Введите количество чисел');
 Readln(n);
 Writeln('Введите массив');
 For i:= 1 To n Do Read (X[i]);
 For I:= 1 To n div 2 Do Write (X[2*i]);
End.

---