Рассчитайте концентрацию поваренной соли в растворе,полученом при смешивании 400 г 2% и 100 г 10% растворов этой же соли

Во-первых, добавить предпоследнюю строчку readkey;Во-вторых,(Redln пишется Readln) Readkey в программе лишнее, так как переменная a[i]   определяется случайным образомВ-третьих, переменную а в местах после randomize заменить на a[i]Далее, оператор цикла надо сделать полным,иначе мы увидим только одно число из 20  Для этого надо добавить после оператора do слово begin и третью строку снизу end;  перед предпоследней добавленной readkey;

m(NaCl)₁=400(2%)m(NaCl)₂=100(10%)m(NaCl)₁=80(Чист)m(NaCl)₂=10(Чист)m(NaCl)=80+10(Чист)m(Ост)=400+100=500МассДоля=90/500=0,18=18%