dimanicich 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.