unit ccc;
interface
const  n=3;
type
ind=1..n;
vect=array[ind] of word;
Function sum(k:ind; Line:vect):word;
implementation
Function sum;
var
j:ind;
S:word;
begin
S:=0;
For j:=1 To k do
S:=S+Line[j];
begin
End;
End;
end.