Массив из 10 ел заполняется с клавиатуры, вывести на экран элементы массива составляющие парус наиб нечётн суммой если пары образ числа отличающиесч на 2 На паскале

var i,n:integer; a:array[1..100]of integer;

begin

write('Введите размер массива: '); readln(n);

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do write(a[ i]:8); writeln;

for i:=n downto 1 do write(a[i]:8); writeln;

writeln('Для выхода нажмите Enter'); readln

end.

Объяснение: