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.