program SumArray;

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

begin
sum := 0;

writeln('Enter 10 numbers: ');

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

writeln('Sum of the numbers is: ', sum);

end.