Написать программу на Паскале
Написать программу генератора случайных чисел от -100 до 100, и сделать так, чтобы сбоку от отрицательного числа показывалось такое же положительное
15 баллов

vari:integer;mas: array [1..5] of integer;beginrandomize;for i:=1 to 5 do beginmas[i]:=random(-100,100);write(mas[i],' ');end;writeln(' ');for i:=1 to 5 do beginif mas[i]<0 thenwrite(mas[i],' ',abs(mas[i]),' ')elsewrite(mas[i],' ');end;end.