Создать массив из 20 чисел случайным образом числом из промежутка от -10 дл 30 вывести элемент массива в строку через 4 позиции

 

вот что получилось 

program e1; var A :array [1..20] of integer ; i:integer; begin for i :=1 to 20 do A[i]:= -10 +random(41); for i :=1 to 20 do write (A[i],'...'); end.