program SumElements;

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

begin
sum := 0;
firstNegIndex := 0;

writeln('Enter 10 integer numbers:');

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

if (arr[i] < 0) and (firstNegIndex = 0) then
firstNegIndex := i;

end;

if firstNegIndex <> 0 then
begin
for i := firstNegIndex to 10 do
sum := sum + arr[i];

writeln('Sum of elements from first negative number to the end: ', sum);

end
else
writeln('No negative numbers found in the array.');
end.