Вывести ** экран все числа от 10 до -10, затем квадраты этих чисел

Question

Вывести на экран все числа от 10 до -10, затем квадраты этих чисел

Comments

программу нужно?

---

pascal ABC

Answer 1

Program z;  var i:integer;begin  for i:=-10 to 10 do    begin      write(i,' ');    end;writeln();  for i:=-10 to 10 do    begin      write(sqr(i),' ');    end;end.

Comments

https://pastebin.com/znKAj3Vb

---

ссылка на читаемый код