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

Question

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

Answer 1

Var i:integer;
begin
for i:=-10 to 10 do
begin
writeln('число=',i);
writeln('модуль=',abs(i));
end;
end.