Problemi numerici elementari


Somma di una sequenza immessa da tastiera su una sola riga

var x,somma: integer
begin
  somma:= 0;
  while not eoln do begin
    read(x);
    somma:= somma + x;
  end;
  writeln(somma);
end.