Задание 1. Написать программу, которая введёт 5 чисел с клавиатуры и выведет их в одной строке.

Введём элементы в массив, затем выведем их в цикле в одной строке.

program Task1;
var
  a: array[1..5] of integer;
  i: integer;
begin
  for i := 1 to 5 do
    read(a[i]);
  for i := 1 to 5 do
    write(a[i], ' ');
end.