program SumEvenIndexedNumbers;

var
num, sum, index: integer;

begin
sum := 0;
index := 1;

repeat
writeln('Введите число: ');
readln(num);

if index mod 2 = 0 then
sum := sum + num;
index := index + 1;

until num = 0;

writeln('Сумма чисел с четным порядковым номером: ', sum);
end.