Что значит из строки? Формулируйте лучше. Можно делать через обычный массив, примерно так
var
a : array [1..100] of integer; // Вместо 100 - максимальное количество чисел
i, n : integer;
begin
//Если колчисетво чисел вводится, то этот код
read (n);
for i := 1 to n do
read (a[i]);
//Если же по уловию задачи задана только строка чисел, то использовать следующий
//код
while not eoln (input) do
begin
n := n + 1;
read (a[n]);
end;
//Далее для обоих вариантов.
for i := 1 to n do
if a[i] mod 2 = 0 then write (a[i], ' '); //Выведет четные, для нечетных заменить = 0 на = 1
end.
