Напистаь программу удаления из строки чётных или нечётных чисел в Паскале

Что значит из строки? Формулируйте лучше. Можно делать через обычный массив, примерно так 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.