2. Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются простыми числами.

var
  mass: array [1..100] of Real;
  i, j: integer;
  sum: Real;

begin
  Randomize;
  sum := 0;
  for i := 1 to 100 do
  begin
    mass[i] := sqrt(Random(1000));
    if (i > 3) then
    begin
      for j := 2 to i do
        if (i mod j) = 0 then break;
      if (j = i) then
      begin
        WriteLn('mass[', i, '] = ', mass[i]);
        sum := sum + mass[i];
      end
    end
    else
    begin
      WriteLn('mass[', i, '] = ', mass[i]);
      sum := sum + mass[i];
    end;
  end;
  WriteLn('sum = ', sum);
end.