Читайте задания на фото. X=-100101
Y=11101

#include <iostream>
#include <cstdlib>
#include <vector>
using namespace std;

int main()
{
vector<int> v;
cout <<"Укажите размер массива: ";
int s;
cin >>s;
srand(time(0));
for(int i=0; i!=s; ++i)
v.push_back(rand()%100);
int find;
cout <<"Введите число для поиска: ";
cin >>find;
bool founded = false;
for(auto it=v.begin(); it!=v.end(); ++it)
if(*it==find) founded=true;
if(founded)
cout <<"Это число есть в массиве!" <<endl;
else cout <<"Такого числа нет в мвссиве!" <<endl;

return 0;
}

program z1;  

const n=3; m=4;

var i,j,x:integer;

mas:array [1..n, 1..m] of integer;

begin

x:=5;

for i:=1 to n do

for j:=1 to m do

begin

mas[i,j]:=sqr(x);

x:=x+1

end;

for i:=1 to n do

begin

for j:=1 to m do write (mas [i,j]:5);

writeln

end

end.

Объяснение:

Убрали лишнюю ; в строке: for j:=1 to m do;

Добавили составной оператор (begin - end) после этой строки

Изменили строку x:=x+11; на x:=x+1

Изменили форматированный вывод write (mas [i,j],' '); на write (mas [i,j]:5); - так ровнее будет

Добавили в конце end.

Если всё делать в 1 цикле:

program z1;  

const n=3; m=4;

var i,j,x:integer;

mas:array [1..n, 1..m] of integer;

begin

x:=5;

for i:=1 to n do

begin

for j:=1 to m do

begin

mas[i,j]:=sqr(x);

write (mas [i,j]:5);

x:=x+1

end;

writeln

end

end.