program SumArray;

var
arr: array [1..10] of Integer;
i, sum: Integer;

begin
sum := 0;

for i := 1 to 10 do
begin
arr[i] := i;
sum := sum + arr[i];
end;

WriteLn('Сумма элементов массива от 1 до 10 равна: ', sum);
end.