СРОЧНО!!!!!Дам 20 баллов!!!!Составить программу ввода с клавиатурой целых чисел от 1 до 10 и вывода на экран элементов массива с нечетными значениями

for i := 1 to 10 do

e[i] := random(1, 10);

for i:= 1 to 10 do

if e[i] mod 2 <> 0 then writeln(e[i]);

end.

vara:array[1..10]of integer;i:integer;BeginFor i:= 1 to 10 do  begin    Read(a[i]);    if a[i] mod 2 <>0 then Write(a[i], ' ');  end;end./~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~///Более современное решение// PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!Beginvar a:= ReadlnString('Введите массив').ToIntegers;SetLength(a, 10);a.Where(t->t.isOdd).Println;end.