ПОМОГИТЕ,ПОЖАЛУЙСТА,СРОЧНО НУЖНО!!! Задача по Паскалю: Задать одномерный массив из 10 чисел, которые полученные случайным образом.
1) Вывести на экран только нечётные элементы.

Program n1;var a: array[1..10] of integer;i: integer;beginrandomize;for i:=1 to 10 dobegina[i]:=random(20);if a[i] mod 2<>0 then write(a[i],' ');end;end.