В массиве хранятся сведения о стоимости 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.