Дана последовательность 5 9 13 17... Составьте алгоритм для программы КуМир для определения числа слагаемых, сумма которых равна 324​

#include <iostream>
#include <list>

using namespace std;

int main() {
    list<int>mylist;
    //Делаем со списком, что хотим
    mylist.push_back(1);
    mylist.push_back(2);
    mylist.push_back(3);
    mylist.push_back(-4);
    mylist.push_back(5);
    for (auto i : mylist) {
        cout << i << " ";
    }
    cout << "\n";
    //Удаляем последний отрицательный элемент
    auto it = mylist.end();
    while (*it > 0) {
        if (it == mylist.begin()) {
            cout << "Not found.\n";
            return 0;
        }
        it--;
    }
    //Делаем со списком, что хотим
    mylist.erase(it);
    for (auto i : mylist){
        cout << i << " ";
    }
    return 0;
}

Program z1;

Uses Crt;

var a,i:integer;

       p:longint;

begin

    clrscr;

     p:=1;  

     write('Введите число а: ');

     readln(a); 

     for i:=a to 100 do  

         p:=p*a;

   writeln('Произведение всех чисел от  ',a,'до 100:',p);

    readkey;

end. 

 

Program z2;

Uses Crt;

var s,i:integer;

i:=2;s:=0;

while(i<=98) do

   begin 

        s:=s+i; 

         i:=i+2;

end;

    clrscr;

     write('Сумма последовательности: ',s);  

    readkey;

end. 

 

Program z3; 

Uses Crt;

var a,i:integer;

begin     

     clrscr;

     a:=0;     

     for i:=100 to 999 do

         if ((i mod 5)=0 and (i mod 21)=0) then

               a:=a+1;                    

     write('Количество 3-значных чисел делящихся без остатка на 5 и 21: ',a); 

    readkey;

end. 

 

Program z4; 

Uses Crt;

var a,i,s:integer;

begin     

     clrscr;

       s:=10:  

       write('Введите количество тренировочных дней: ');  

        readln(a);

         for i:=2 to a do

               s:=s+3;

       write('Суммарное расстояние: ',s);        

readkey;

end. 

 

Program z5;

Uses Crt;

var a,i,n,s:integer;  

begin     

     clrscr;

      write('Введите количество отрядов: ');

      readln(n);  

      s:=0; 

 

      for i:=1 to n do

          begin

               write('Введите количество детей в  ',i ,'-м отряде:' ); 

 

               readln(a);

               clrscr; 

               s:=s+a;

         end;      

   writeln;

   writeln('Общее количество детей в лагере:',s);

   readkey;

end.