Program sum
Var n,i,s: integer;
a:array[1..1000] of integer;
begin
Write ('Vvedite n');
readln(n);
Write('Vvedite n chisel');
For i:=1 to n do
read(a[i]);
S:=0;
For i:=1 to n do
S:= S+a[i];
write('Summa ravna', s)
end
Вроде так. Это в консоли, так что она может сразу закрыться после выполнения программы.