Какие три из районов относятся к районам активного вулканизма

Var
  a: array [1..12] of real;  //Массив стоимости
  s: real;                        //сумма
  i: integer;

begin
  s:= 0;
  for i:= 1 to 12 do  {12 раз вводим стоимость предмета и прибавляем ее к значению s}
  begin
    writeln('Введите стоимость предмета');
    readln(a[i]);
    s:= s + a[i];
  end;
  writeln('Общая стоимость всех предметов:  ', s);
end.