Складіть проект для малювання трьох однакових орнаментів, кожен з яких складається з 10 квадратів.

{Лови прогу для одномерного массива. Если он двумерный, могу модифицировать.
Должна работать, не работает - отпишись, отыщу паскаль и исправлю.
Кидай прям весь ответ, кэп. Комментарии подотри, опять же кэп}

program massiv;
var x:array[1..10] of real;
n, i:integer;
s:real;

begin
writeln('Vvedite razmer massiva');
readln(n);
if (n<1) or (n>10) then writeln('Neverno zadano znacheniye razmera massiva')
else begin {check: +}
for i:=1 to n do begin writeln('Vvedite element ', i, 'iz ', n); readln(x[i]); end; {enter the array}
s:=0;
for i:=1 to n do
begin
s:=s+power(x[i], 3);
end;
writeln(s:2:2);
end;
readln; {stop here to read the program answer}
end.

#include <iostream>

#include <vector>

int main()

{

   int m,firstcnt,inp,X;

   std::vector<int> vc;

   // Русский язык в консоли

   setlocale(LC_ALL, "Russian");

   std::cout << "Размер вектора: ";

   std::cin >> m;

   firstcnt = m;

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

   {

       std::cout << i << " элемент вектора: ";

       std::cin >> inp;

       vc.push_back(inp);

   }

   std::cout << "Элемент X: ";

   std::cin >> X;

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

   {

       if (vc[i] % X == 0)

       {

           auto iter1 = vc.cbegin();

           std::cout <<  "Вставьте новый элемент вектора после " << i- (m-firstcnt) << " элемента: ";

           std::cin >> inp;

           vc.insert(iter1 + i + 1, inp);

           m++;

           i++;

       }

   }

   std::cout << "Результат: ";

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

       std::cout << vc[i] << " ";

   return 0;

}