Пользователь вводит числа до тех пор, пока не введет число 0. Сохраняем их в массив. После этого выводим на экран введенные числа с нечетными номерами: 1-е, 3-е, 5-е и тд НА Pascal

#include  

using namespace std;

int main() {

   bool repeat = true;

  while (repeat) {

       double число1, число2, число3, число4, число5;

       cout << "'Введите числа: ";

       cin >> число1 >> число2 >>число3 >> число4>>число5;

       cout << "сумма: " << число1 + число2 +число3 + число4 + число5 << endl;

       cout << "еще раз? (t/n) ";

       char;

       cin >>;

       repeat = ( == 't');

   }

   return 0;

}

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

uses System.Linq;

function GetPrimes(n: integer): List<integer>;

begin

   var primes := new List<integer>();

   primes.Add(2);

   for var i := 3 to n do

   begin

       if primes.All(x -> i mod x > 0 ) then

           primes.Add(i);

   end;

   GetPrimes := primes;

end;

begin

   var n := ReadInteger('n =');

   var primes := GetPrimes(2 * n);

   foreach var p in primes do

       if primes.Contains(p + 2) then

           writeln(p, ' ', p + 2);

end.