fork download
copy 
  1. program Ausgeben(output);
  2.  
  3. var i:integer;
  4.  
  5. begin
  6. for i:=1 to 100 do
  7. if i mod 2 = 0  then
  8.  
  9. writeln (i);
  10. end.
Success #stdin #stdout 0.02s 4112KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
2
4
6
8
10
12
14
16
18
20
22
24
26
28
30
32
34
36
38
40
42
44
46
48
50
52
54
56
58
60
62
64
66
68
70
72
74
76
78
80
82
84
86
88
90
92
94
96
98
100
https://ideone.com/m4AzY
language:
Pascal (gpc 20070904)
created:
14 years 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!