Дан массив из 10 целых частей из диапазона [-10;7]. переписать в

program zz1;
var mas1,mas2:array[1..10] of integer;
i,p:integer;
begin
for i:=1 to 10 do //вводим 10 чисел в массив случайным образом из заданного спектра
mas1[i]:=random(18)-10;

for i:=1 to 10 do //выврдим начальный массив на экран
write(mas1[i], );

p:=1;
for i:=1 to 10 do
if mas1[i] mod 2lt;gt;0 then begin mas2[p]:=mas1[i]; p:=p+1;end; //проверяем, если элемент массива нечетный, то записываем его в иной массив, считаем его номер
writeln; //переходим на новую строку для вывода
for i:=1 to p-1 do
write(mas2[i], ); //выводим приобретенный массив
end.