Ответ: спасибо, сейчас попробую ввести

Ответ: var n,i,s,c:integer;beginreadln(n);for i:=1 to n do   //сколько произвольных чисел будет.beginreadln(c);    //вводим произвольные числаs:=s+c;   //суммируемend;writeln(s);  //Вывод суммыend.