Из предложенных команд составьте алгоритм вычисления суммы элементов массива:

• program CalculateSum;
• var
  A: array
  \[1\.\.30\]
  of Integer;
  s, i: Integer;
• begin
• for i := 1 to 30 do begin
  write\('Введите число: '\);
• readln\(A⟨1⟩\);
  end;
• s := 0;
  for i := 1 to 30 do begin
  s := s + A
  \[i\]
  ;
  end;
• writeln\(s\);
• end.