Составте программу генерирование случайных чисел от -100 до100.Выдавать на экран по одному числу в каждой строчке , если число отрицательное , то выводить противоположно
В два столбика

vari:integer;mas: array [1..10] of integer;beginrandomize;for i:=1 to 10 do beginmas[i]:=random(-100,100);end;for i:=1 to 10 do beginif mas[i]<0 thenwriteln(' ', mas[i])elsewriteln(mas[i],' ');end;end.