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

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