Дано естественное число N и последовательность целых чисел a1 a2 an

program zz1;
const n=10;
var mas:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
mas[i]:=random(61)-35; //заполняем массив случайными числами
for i:=1 to n do
write(mas[i], ); //выводим их на экран
for i:=1 to n do
if (mas[i] mod 2=-1) then mas[i]:=mas[i]*2; //умножаем на 2 те, которые отрицательные и нечетные
writeln; //переходим на новейшую строчку
for i:=1 to n do
write(mas[i], ); //выводим числа на экран
end.