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

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.