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

Привет!

Решение на фотографии.

Удачи!

var

i: integer;

begin

 writeln('Числа из промежутка: ');

 for i:=-10 to 10 do

   write(i:4);

 writeln;

 writeln('Модули этих чисел');

 for i:=-10 to 10 do  

   write(abs(i):4);

end.