program SumOfNumbers;

var
n, number, sum: integer;
i: integer;

begin
sum := 0;

write('Enter the number of elements: ');
readln(n);

for i := 1 to n do
begin
write('Enter number ', i, ': ');
readln(number);

end;

writeln('Sum of numbers: ', sum);

end.