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

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.