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

Var a:shortint;
begin
Randomize;
a:=Random(-100, 100);
if (a<0) then a:=a*(0-1);
writeln(a);
end.

Все программируемое - просто))