Вот пример программы на Pascal, которая позволяет ввести 5 элементов массива двумя способами (с клавиатуры и случайным образом):

program input_array;
var
arr: array[1..5] of integer;
i: integer;
begin
// Ввод массива с клавиатуры
writeln('Введите 5 элементов массива:');
for i := 1 to 5 do
begin
write('arr[', i, '] = ');
readln(arr[i]);
end;
// Вывод массива
writeln('Массив:');
for i := 1 to 5 do
writeln('arr[', i, '] = ', arr[i]);
// Заполнение массива случайными числами
randomize;
for i := 1 to 5 do
arr[i] := random(100);
// Вывод массива
writeln('Массив после заполнения случайными числами:');
for i := 1 to 5 do
writeln('arr[', i, '] = ', arr[i]);
end.

Эта программа сначала запрашивает у пользователя ввод 5 элементов массива с клавиатуры, а затем заполняет массив случайными числами и выводит его содержимое на экран.