---

program Variant6_Task1;
const
  n = 5;
var
  arr: array[1..n] of Integer = (12, 15, 8, 20, 10);
  i, sum: Integer;
begin
  sum := 0;
  for i := 1 to n do
    sum := sum + arr[i];
  Writeln('Сумма элементов массива = ', sum);
  Readln;
end.