РЕШИТЕ ПО БРАТСКИ ИНФОРМАТИКУ

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.

 

#include<cmath>  

#include<iostream> // библиотеки

using namespace std;

int main()

{

   setlocale(LC_ALL,"Russian"); //русский язык

   int n,x[100],a,sum=0; // переменные

   cout<<"Введите размерность массива"<<endl;

   cin>>n;

   for(int i=1;i<=n;i++) //цикл с вводом элементов массива

   {

       cout<<"Введите "<<i<<"-й элемент массива"<<endl;

       cin>>x[i];

   }

   for(int i=1;i<=n;i++) //цикл нахождения первого элемента, равного 13

   {

       a=i;

       if(x[i]==13) break;

   }

   for(int i=1;i<a;i++) //цикл суммирования элементов, стоящих до элемента равного 13, pow - это возведение в степень, т.е. pow(x,2) это x в квадрате.

   {

      sum=sum +(pow(x[i],2));

   }

   cout<<"Сумма квадратов чисел, стоящих до элемента "<<a<<" = "<<sum<<endl;

   return 0;

}