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

Var
i:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-100,100);
end;
for i:=1 to 10 do begin
if mas[i]lt;0 then
writeln( , mas[i])
else
writeln(mas[i], );
end;
end.