Как египтяне перешли от изображения значком целого слова к изображению значком отдельного звука ?

Вот так они перешли!

Pascal abc / pascalabc.net: var     n,s: integer; begin write('n = '); readln(n); s: =0; while n > 0 do     begin     s: =s+sqr(n mod 10);     n: =n div 10     end; writeln('s = ',power(s,1/3)); end. turbo pascal / free pascal: var     n,s: integer; begin write('n = '); readln(n); s: =0; while n > 0 do     begin     s: =s+sqr(n mod 10);     n: =n div 10     end; writeln('s = ',exp(ln(s)/3)); end.

1) {$apptype console} var     u: array[1..10000] of integer;     h,k: integer; begin randomize; write('h = '); readln(h); write('исходный массив: '); for h: = 1 to h do       begin       u[h]: =random(2*h+1)-h;       write(' ',u[h])       end; writeln; write('k = '); readln(k); for h: = 1 to h do       if u[h] = k then write(h,' '); readln; end. 2) {$apptype console} var     b: array[1..10000,1..10000] of integer;     m,n,j,max: integer; begin randomize; write('m = '); readln(m); write('n = '); readln(n); for m: = 1 to m do       begin       max: =1;       for j: = 1 to n do               begin               b[m,j]: =random(21)-10;               write(b[m,j]: 4);               if b[m,j] > b[m,max] then max: =j;               end;       writeln(', max = ',b[m,max],'[',m,',',max,']');       end; readln end.