// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString.ToReals.ToArray;
Range(1,a.Length-1,2).Select(i->a[i]).Println
end.
Пример
24.72 13.633 15.3 19.3 -0.002 2.215 0.032 7.5
13.633 19.3 2.215 7.5