Найти сумму n однозначных чисел введенных с клавиатуры паскаль

Program bog(input, output); type vector=array[1..100] of integer; var n, s, i:integer; z:vector; begin read (n); for I:=1 to n do read (z[i]); s:=0; for I:=1 to n do s:=s+z[i]; writeln (s); end.