i := 0; Sum := 0;
repeat
i += 2; Sum += a[i];
Write(#32, a[i]);
until i = 50;
WriteLn(NewLine, 'Сумма = ', Sum);
i := 0; Sum := 0;
repeat
i += 2; Sum += a[i];
Write(#32, a[i]);
until i = 50;
WriteLn(NewLine, 'Сумма = ', Sum);