Для какого из приведенных значений числа Х истинно высказывание (х<5) и не (х<4)

Что бы автоматически читать числа по одному в строке до определённого ввода, можно сделать цикл:

lst = []

x = int(input())

while x != 0:

   lst.append(x)

   x = int(input())

Такая конструкция позволит вам читать поток входных данных любой длины до момента ввода какого то числа.

Если вы хотите вводить числа просто через пробел, то можно использовать метод split() для строки считываемого входного потока, и полученный список строковых чисел уже приводить потом к нужному типу:

lst = input().split() # -> list of <str>

lst = list(map(int, lst)) #-> list of <int>

Ну, или в одну строку: lst = list(map(int, input().split()))

Так же вы можете считывать и автоматически приводить к нужному типу входные данные используя особую питоновую магию в виде генераторов списков:

lst = [int(i) for i in input().split()] # -> list of <int>

Функций, позволяющих считывать входной поток до определённого ввода, точнее, позволяющих организовать такой ввода в одну строку, я не встречал

Объяснение:

program a1;
var
a: array [1..15] of integer;
a2: array [1..15] of integer;
Mas1:integer;
Mas2:integer;
Raz:integer;
i:integer;
begin
//Подключаем датчик случайных чисел
randomize;

//Цикл заполняющий массивы и нахождение сумм элементов масива
for i:=1 to 15 do
begin
a[i]:=random(100);
a2[i]:=sqr(a[i])-a[i];
Mas1:=Mas1+a[i];
Mas2:=Mas2+a2[i];
end;

//находим разницу массивов
raz:=mas1-mas2;

//Выводим на экран 1ый массив
write('Первый массив: ');
for i:=1 to 15 do
begin
write(a[i],'|')
end;
writeln('');

//Выводим на экран 2ой массив
write('Второй массив: ');
for i:=1 to 15 do
begin
write(a2[i],'|')
end;
writeln('');

//Выводим на экран разность массивов
write('Разность сумм элементов массива:', raz);
writeln('');
end.