120259084288 біт виразити цілим числом у найбільш можливих одиницях

// pascalabc.net 3.0, сборка 1088 const   nn=100; type   vector=array[1..nn] of integer; function min(a: vector; n: integer): integer; var   i,m: integer; begin   m: =a[1];   for i: =2 to n do       if a[i]< m then m: =a[i];   min: =m end; var   v: vector;   i,n,m,mn: integer; begin   write('количество элементов вектора: '); read(n);   write('значение m: '); read(m);   randomize;   writeln('*** сгенерированный вектор ***');   for i: =1 to n do begin       v[i]: =random(101)-50;       write(v[i],' ')       end;   writeln;   mn: =min(v,n);   if mn< =m then writeln('минимум ',mn,' не превышает ',m)   else writeln('минимум ',mn,' превышает ',m) end. тестовое решение: количество элементов вектора: 20 значение m: -42 *** сгенерированный вектор *** -12 10 -47 8 6 -22 -4 8 -50 -2 36 -38 -39 -41 11 -46 41 -22 -50 24 минимум -50 не превышает -42