В массиве хранятся сведения о стоимости 12 различных предметов. Определить общую стоимость всех предметов.Visual Basic

Var a:array [1..12] of integer;

   sym,i:integer;

BEGIN

For i:=1 to 12 do

Begin

  Read(a[i]); // Ввод стоимости

  sym:=sym+a[i];

End;

Write(sym);

END.