Пример 1. Ввод 10 числовых элементов массива с клавиатуры в одной строке.

Считываем 10 целых чисел в массив, затем выводим их в одной строке.

program Primer1;
var
  a: array[1..10] of integer;
  i: integer;
begin
  write('Введите элементы массива: ');
  for i := 1 to 10 do
    read(a[i]);
  write('Вывод элементов массива: ');
  for i := 1 to 10 do
    write(a[i], ' ');
end.