Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных…

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