Составьте программу, которая сформировывает массив из 20 случайных целыъ от -15

var a:array[1..20] of integer;

i: integer;

begin

write(' Начальный массив: ');

for i:=1 to 20 do

begin

a[i]:=random(31)-15;

write (a[i]:3,' ')

end;

writeln;

write('Преобразованый массив: ');

for i:=1 to 20 do

begin

if (a[i] mod 3 = 0) then a[i]:=a[i] div 3

else a[i]:= a[i]*2;

write (a[i]:3,' ')

end

end.