Написать программу в Паскале (ВВОДИТЬ ЧИСЛА ДО ТЕХ ПОР ПОКА ОЧЕРЕДНОЕ НЕ ОКАЖЕТСЯ РАВНО 0,НАЙТИ СУММУ ЧИСЕЛ С ЧЕТНЫМ ПОРЯДКОВЫМ НОМЕРОМ)

Предыдущий
вопрос Следующий
вопрос

program SumEvenIndexedNumbers;

var
num, sum, index: integer;

begin
sum := 0;
index := 1;

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

until num = 0;

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