var
  S1, S2: real;
begin
  var arr:= SeqRandomInteger(10).ToArray.Println;
  arr.ForEach(procedure(x) -> S1 += x);
  Writeln('Сумма элементов: ', S1);
  arr.ForEach(procedure(x) -> S2 -= x);
  Write('Разность элементов: ', S2);
end.