с клавиатуры вводится последовательность целых чисел. конец ввода 0. отыскать сумму

Вы до сих пор нуждаетесь в решении данной задачи?

да

/* C */
include lt;stdio.hgt;
include lt;stdlib.hgt;

int main()
    int n = 1, sum = 0;
    while (n != 0)
        scanf("%d", amp;n);
        if ((n gt; -10) amp;amp; (n lt; 10)) sum += n;
   
    printf("Sum = %d", sum);
    return 0;



//Pascal
var sum, n: integer;
begin
sum := 0; n := 1;
while (n lt;gt; 0) do
begin
readln(n);
if ((n gt; -10) and (n lt; 10)) then
sum := sum + n;
end;
writeln('Sum = ', sum);
end.