обусловьте что будет напечатано в итоге выполнения последующего метода при имеющихся

Обусловьте что будет напечатано в итоге выполнения следующего метода при имеющихся данных (3,-2,9,7,-1,6,1)
program Example;
var a: array[1...7] of real; S: real; integer;
begin
for i: =1 to 7 do
read (a[I]);
S:=0;
for i :=1 to 7 do
S: =S+a[i];
written (S)
end