найти сумму элементов вещественного массива В размерностью ...

Настя

var B: array [1..10] of real;

      s:real;

      i: integer;

begin

  s:=0;

  for i:=1 to 10 do begin

    readln(b[i]);

    s:=s+b[i];

                          end;

  writeln(s);

end.