var
a: array [1..10] of integer;
c: integer;
s: longint;
begin
write('array? ');
for c := 1 to 10 do read(a[c]);
for c := 1 to 10 do inc(s, a[c]);
writeln('sum: ', s);
end.
