Question

подсчитать сумму 10 произвольно введенных чисел 

Answer 1

var i, x, s: integer;begin s := 0; for i := 0 to 9 do begin read(x); s := s + x; end; writeln('summa: ', s);end.