Написать код на паскале! все голову сломала: ( даны массивы н1..н5 шифры предприятий 1ой группы нн1..нн8 шифры предприятий 2ой группы n1..n5 наименование продукций предприятий 2ой группы nn1..nn8наименование продукций предприятий 2о1 группы вывести списки предприятий выпускающих одинаковую продукцию

Var h1: array[1..5] of integer;       h2: array[1..8] of integer;       n1: array[1..5] of integer;       n2: array[1..8] of integer;       i, j: integer; begin randomize; for i: =1 to 5 do {заполняем массивы}   begin   h1[i]: =random(10);   n1[i]: =random(10);   end; for i: =1 to 8 do   begin   h2[i]: =random(10);   n2[i]: =random(10);   end; for i: =1 to 5 do {сравниваем продукцию}   for j: =1 to 8 do   if n1[i]=n2[j] then writeln(i, ' и ', j, ' выпускают одинаковую продукц.'); write('h1 '); {выводим массивы} for i: =1 to 5 do write(h1[i], ' '); writeln; write('n1 '); for i: =1 to 5 do write(n1[i], ' '); writeln; write('h2 '); for i: =1 to 8 do write(h2[i], ' '); writeln; write('n2 '); for i: =1 to 8 do write(n2[i], ' '); writeln; end.

Чтобы прекратить ввод чисел в массив нужно ввести число "-1010". class arraynegative{   public static void main(string args[]){   java.util.scanner in = new java.util.scanner(system.in); long earray[] = new long[1];   while((earray[earray.length-1] = in.=-1010){     long narray[] = new long[earray.length+1];     for(int ncell = 0; ncell< earray.length; ncell++)narray[ncell]=earray[ncell];     earray = narray;   } earraycell:   for(int ccell = 0; ccell< earray.length-1; ccell++){     if(earray[ccell]> 0)continue;     else for(int ecell = ccell+1; ecell< earray.length-1; ecell++)     if(earray[ecell]> 0){       earray[earray.length-1]=earray[ccell];       earray[ccell]=earray[ecell];       earray[ecell]=earray[earray.length-1];       continue earraycell;     }     break;   }   for(int ccell = 0; ccell< earray.length-1; ccell++)system.out.print(earray[ccell]+" ");   } }