Question

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

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.

Answer 2

https://pastebin.com/znKAj3Vb

Answer 3

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