Вот пример программы на языке Pascal для заполнения двух массивов случайными числами:

program RandomNumbers;var  i, j: integer;  arr1, arr2: array[1..10] of integer; // Объявляем два массива размером 10 элементов каждыйbegin  randomize; // Инициализируем генератор случайных чисел  for i := 1 to 10 do // Заполняем первый массив случайными числами от 0 до 99    arr1[i] := random(100);  writeln('Первый массив:');  for j := 1 to 10 do    write(arr1[j], ' '); // Выводим элементы первого массива на экран  writeln;  for i := 1 to 10 do // Аналогично заполняем второй массив    arr2[i] := random(100);  writeln('Второй массив:');  for j := 1 to 10 do    write(arr2[j], ' ');  readln;end.

В этой программе мы объявляем два целочисленных массива arr1 и arr2 размером 10 элементов. Затем мы инициализируем генератор случайных чисел с помощью функции randomize. Далее мы заполняем первый массив arr1, используя функцию random(100), которая возвращает случайное целое число в диапазоне от 0 до 99. После этого мы выводим элементы массива на экран.

Затем мы аналогичным образом заполняем и выводим второй массив arr2. В конце программы мы ждём нажатия клавиши Enter для завершения работы программы.