fork download
copy 
  1. program sumofunknown;
  2. var
  3. x:integer;
  4. sum:integer;
  5. Begin
  6. Repeat
  7. Write('Enter a number <0 to quit>:');
  8. Readln(x);
  9. sum:=sum+x;
  10. UNTIL x=0;
  11. Writeln('The sum of all numbers:',sum);
  12. readln;
  13. End.
  14.  
Success #stdin #stdout 0s 5280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Enter a number <0 to quit>:The sum of all numbers:0
https://ideone.com/nlICEf
language:
Pascal (fpc 3.0.4)
created:
6 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!