fork download
copy 
  1. program ideone;
  2. var x: integer;
  3. begin
  4. 	repeat
  5. 		readln(x);
  6. 		if x<>42 then writeln(x);
  7. 	until x=42
  8. end.
Success #stdin #stdout 0s 5280KB
comments (?)
stdin
copy 
1
2
10
42
11
stdout
copy 
1
2
10
https://ideone.com/axhQmz
language:
Pascal (gpc 20070904)
created:
5 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!