var p,el,symm: integer; {присвоение необходимым переменным тиа данных}p1 : array [1..100] of integer; {так как чисел будет несколько, то для удобства создадим массив}beginreadln(p); {p - количество єлементов, которые мы будем вводить}for el:=1 to p do begin read(p1[el]); {считывание чисел с помощью цикла}symm:=symm+p1[el]; end; {используем счетчик \"symm\" для нахождения суммы}writeln(symm); {вывод значения счетчика}end.