1. Записать, как на языке Паскаль ( в разделе var) опишется массив A[10], если его элементы целые числа?
2. Записать, как на языке Паскаль запишется фрагмент программы для заполнения массива A[10] с клавиатуры?
3. Записать, как на языке Паскаль запишется фрагмент программы для вывода массива A[10]?

#include <iostream>

#include <set>

#include <vector>

using namespace std;

struct book{

   int name;

   int year;

   int k;

};

signed main() {

   ios_base::sync_with_stdio(0);

   cin.tie(0);

   cout.tie(0);

   vector<book> ans;

   int n;

   cin >> n;

   for(int i = 0; i < n; i++)

   {

       book bk;

       cin >> bk.name >> bk.year >> bk.k;

       if(bk.k >= 2 && bk.k <= 10)

           ans.push_back(bk);

   }

   for(auto i: ans)

       cout << i.name << " " << i.year << " " << i.k << "\n";

}

#include <iostream>

#include <set>

#include <vector>

using namespace std;

struct book{

   int name;

   int year;

   int k;

};

signed main() {

   ios_base::sync_with_stdio(0);

   cin.tie(0);

   cout.tie(0);

   vector<book> ans;

   int n;

   cin >> n;

   for(int i = 0; i < n; i++)

   {

       book bk;

       cin >> bk.name >> bk.year >> bk.k;

       if(bk.k >= 2 && bk.k <= 10)

           ans.push_back(bk);

   }

   for(auto i: ans)

       cout << i.name << " " << i.year << " " << i.k << "\n";

}