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 Вроде так. Это в консоли, так что она может сразу закрыться после выполнения программы.