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

program zz1;

var n:integer; / / задаем переменную целого типа

begin

n:=random (61) - 20; / / получаем первое случайное число из заданного диапазона

write (n, ' '); / / выводим его на экран

while n 0 do / / организуем цикл, пока случайным образом не получится ноль

begin

n:=random (61) - 20; / / получаем следующее случайное число из заданного диапазона

write (n, ' '); / / выводим его на экран в строку через пробел

end;

end.