Составьте программу выводящую на экран все числа от -10 до 10 а также их модули

Var i, c: integer;
begin
     for i := -10 to 10 do
         writeln('|', i, '| = ', abs(i));
end.