Сколько знаков должен был знать китаец, умеющий читать и писать?

2000 знаков вроде бы так но незнаю правильно ли

Var    a,b,c{длины сторон}, s{площадь тр.}, p{полупериметр}: double; begin writeln('введите стороны треугольника: '); readln(a,b,c);       if (a> =b+c) or (b> =a+c) or (c> =a+b) then            writeln ('такого треугольника не существует')            else begin          p: =(a+b+c)/2;             s: =sqrt(p*(p-a)*(p-b)*(p-c)); {вычисляем s тр. по формуле герона}            writeln ('такой треугольник существует, его s = ', s, 'ед.');             end;       end.

// pascalabc.net 3.2, сборка 1374 от 10.01.2017// внимание! если программа не работает, обновите версию! procedure myarray(n: integer; var a: array of integer); begin  a: =arrfill(n,0); // заполняем массив нулями  randomize; // инициализируем датчик случайных чисел  // в случайный элемент заносим слчайное значение  a[random(0,n-1)]: =random(1,99)end; begin  var n: =readinteger('n='); // читаем с клавиатуры размер массива  var mas: array of integer;   myarray(n,mas); // вызываем процедуру  mas.println // выводим сформированный массивend. пример n= 21 0 0 0 0 0 0 0 56 0 0 0 0 0 0 0 0 0 0 0 0 0