Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-100; 100] найти сумму положительных элементов, значения которых меньше 10. pascal

Var   mas: array[1..999] of integer;   n,sum: integer; begin   sum: =0;   randomize;   readln(n);   for i: =1 to n do begin   mas[i]: =random(201)-100;   write(mas[i],' '); end; writeln; for i: =1 to n do   if (mas[i]> 0) and (mas[i]< 10) then   sum: =sum+mas[i]; writeln(sum); end.

writeln('a[',i,']=',a[i]);

readln;

end.

как правильно пишется триугольник или треугольник?

  треугольник