Сформулировать и вывести на экран последовательность из n элементов заданных случайным образом на интервале от -17 до 33

var

 n, i: Integer;

begin

   Writeln ('Введите количество элементов: ');

   ReadLn (n);

   Randomize;

   Writeln ('Последовательность случайных элементов: ');

   for i := 1 to n do begin

     Write (IntToStr (Random (50) - 17) + ' ');

   end;

end;