Как должен был писать образованный китаец?

Во времена конфуция писали на узеньких дощечках из расщепленного бамбука. тонкую кисточку или палочку обволакивали в черную тушь и наносили иероглифы сверху вниз. если делали ошибку то соскабливали написанное ножом.

//pascal // 1)var   a: array [1..30] of integer;   i: byte; mult: double; begin mult : = 1; randomize; writeln('сгенерированный массив.'); for i : = 1 to 30 do begin   a[i] : = random(46)-15;   if a[i] > 0 then mult : = mult * a[i];   write(a[i], ' '); end; writeln; writeln('произведение положительных элементов = ', mult); end. // // 2)var   a: array [1..40] of integer;   i: byte; count: byte; begin count : = 0; randomize; writeln('сгенерированный массив.'); for i : = 1 to 40 do begin   a[i] : = random(31)-20;   if a[i] mod 3 = 0 then count : = count + 1;   write(a[i], ' '); end; writeln; writeln('количество элементов кратных трем = ', count); end. // // 3)var   a: array [1..40] of integer;   i: byte; count: byte; sum: integer; begin count : = 0; sum : = 0; randomize; writeln('сгенерированный массив.'); for i : = 1 to 40 do begin   a[i] : = random(61)-30;   if a[i] < 0 then   begin       count : = count + 1;       sum : = sum + a[i];   end;   write(a[i], ' '); end; writeln; writeln('среднее арифметическое отрицательных эл. =',(sum/count): 4: 4); end. //

Var i, k: integer;               n: array[1..10] of real;           begin            for i: =1 to 10 do readln(n[i]);           k: =1;             for i: =1 to 9 do              if k< > 0 then                        if n[i]< n[i+1] then k: =k+1                                                        else k: =0;               if k< > 0 then writeln('ученики выстроены по росту')                      else writeln('ученики выстроены не  по росту');       end.