сформулировать и вывести на экран последовательности из N элементов датчиком случайных чисел из промежутка (- 23; 34)

var  a    : array [1..1000] of longint;  i,n  : longint;   begin  readln(n);  for i:=1 to n do a[i]:=random(58)-23;  for i:=1 to n do writeln(a[i]);end.

// PascalABC.NET 3.0, сборка 1128begin  SeqRandom(ReadInteger('Количество элементов='),-23,34).Printlnend.Тестовое решение:Количество элементов= 150 2 -7 -12 3 22 13 32 -14 -15 28 -17 10 34 -6