Program n_1;
var n, s, i, v:integer;
begin
s:=1;
writeln(Введите кол-во чисел);
readln(n);
for i:=1 to n do
begin
writeln(Введите число);
readln(v);
s:=s+v;
end;
writeln(s=,s);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.