Решение задачи Series 30

# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream>
# include <cstdio>
 
using namespace std;
 
int main ()
 
{
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  int a;
  char name [20];
  int k;
  cout << "Введите число наборов: ";
  cin >> k;
  if (k > 5) cout << "Некорректное число наборов" << endl;
  else  for (int i=1; i<=k; ++i) {
  	sprintf (name, "Series30_%d.txt", i);
  	ifstream in (name);
    int S = 0;
    cout << "Дан набор целых чисел: ";
    while (in >> a) {
  	  cout << a << " " ;
  	  S += a;
    }
    in.close ();
    cout << endl;
    cout << "Сумма элементов данного набора = " << S << endl << endl;
  }
  
  system ("pause");
  return 0;
}

import random

N = random.randrange(1,7)
K = random.randrange(1,7)

print("N = ",N)
print("K = ",K)
for i in range(0,K):
    S = 0
    for j in range(0,N):
        x = random.randrange(0,4)
        print(x,end="; ")
        S += x
    print()
    print("Sum = ",S)
    print()
									

program Series30;
var
  K,N,Ni,Ki,A,S:Integer;
begin
 
 Write('N: ');
 Readln(N);
 
 Write('K: ');
 Readln(K);
 
 for Ki:=1 to K do
  begin
   S:=0;
   for Ni:=1 to N do
    begin
     write('Введите ',Ni,' число из ',Ki ,' набора :');
     Readln(A);
     S:=S+A;
    end;
   writeln('Сумма элементов в ',Ki,' наборе равна: ',S);
  end;
 readln;
end.