Что такое современные дорогостоящие компьютеры занимающее большие залы, весящие более одной тонны, считающие быстрее всего 1 слово

Внаши дни это  называется -  суперкомпьютер

Const     n = 3;     m = 4; var     a: array[1..n,1..m] of integer;     i,j,min,ns: integer; begin {заполнение массива} writeln('исходный массив: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               end;       writeln       end; {поиск минимального элемента} min: =a[1,1]; for i: = 1 to n do       for j: = 1 to m do               if a[i,j]< min then                     begin                     min: =a[i,j];                     ns: =i;                     end; writeln('минимальный элемент в строке №',ns); end.

Var k,n,d,m,s: integer; begin   k : = 1;   d : = 2;   read(n);   while n > 1 do   begin   s : = 0;   m : = 1;   while n mod d = 0 do       begin       if m mod d < > 0 then           begin           s : = s + d;           m : = s;           end;       n : = n div d;       m : = m div d;       end;   if s > k then k : = s;   d : = d + 1   end;   writeln(k) end.