составить программку,которая будет выводить на экран случайные целые числа из промежутка

program zz1;
var n:integer; // задаем переменную целого типа
begin
n:=random(61) - 20; // получаем 1-ое случайное число из данного спектра
write(n, ); // выводим его на экран
while n lt;gt; 0 do // организуем цикл, пока случайным образом не получится ноль
begin
n:=random(61) - 20; // получаем последующее случайное число из данного диапазона
write(n, ); // выводим его на экран в строчку через пробел
end;
end.