сформируйте массив из 10 случайных целых чисел на интервале [-7,10] и

var
   i : integer;                                 // объявляем переменную целочисленного типа.
   arr : array [1..10] of integer;      // объявляем массив.
Begin
   for i := 1 to 10 do             // начало цикла.
      begin
       arr[i] := random(-7, 10); // наполняем элемент массива числами из спектра -7; 10.
       write(arr[i] * 4 + );      //вывод на экран в строчку частей массива, увеличенных в 4 раза
      end;
End.