Паскаль найти все простые числа меньшие заданного x

Var x,i,j,k:integer;
begin
write('x = ');
readln(x);
writeln('Простые числа:');
for i:=2 to x-1 do
 begin
 k:=0;
 for j:=2 to round(sqrt(i)) do
  if i mod j=0 then k:=k+1;
 if k=0 then write(i,' ');
 end;
end.

Пример:
x = 30
Простые числа:
2 3 5 7 11 13 17 19 23 29

Даны числа а1, а2, … аn. Сформировать квадратную матрицу порядка n по заданному образцу:введите сюда описание изображения

Вот примерный код, что дальше делать не знаю.int main() {

setlocale(LC_ALL, "Russian");

int n;

cout << "Введите порядок квадратной матрицы: ";

cin >> n;

int** arr = new int* [n];

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

arr[i] = new int[n];

cout << "Введите а1, а2, ... , a" << n << " : ";

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

{

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

{

cin >> arr[i][j];

}

}

cout << "Введенный массив: " << endl;

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

{

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

{

cout << setw(4) << arr[i][j];

}

cout << endl;

}

system("pause");

return 0;

4 принтер

5 экран

6 Постоянное запоминающее устройство

7 оперативная память

8 Windows 1.0 получило имя «Windows» ввиду того, что одной из основных ее особенностей была возможность переключаться между несколькими окнами графического пользовательского интерфейса.

9 служит для открывания документов, запуска программ, вызова меню ПУСК. Для этого нужно навести курсор на нужный объект и щелкнуть по левой кнопки мыши один или два раза(двойной щелчок).

10 рабочий стол

11 включение компьютера

12 все диски хранящиеся на компьютере

13 контекстного меню выделенного элемента. На большинстве клавиатур для вызова контекстного меню существует специальная клавиша