program sumnumbers;
VAR sum,number:longint;
begin
writeln('type one or more numbers on one line');
sum := 0;
while NOT eof do begin
read(number);
sum := sum+number;
end;
writeln('The sum of numbers was ',sum);
readln;readln;
end.