fork download 
  1. program Array100BilanganGenapSetelahNOL;
  2. var
  3.   nilai: array[0..100] of integer;
  4.   x : integer;
  5. begin
  6.   nilai[0]:= 2;
  7.   for x:=0 to 99 do
  8.   begin
  9. 	writeln(nilai[x]);
  10. 	nilai[x+1]:= nilai[x] + 2;
  11.   end;
  12.   writeln("Bilangan Genap ke 24 adalah ",nilai[23]);
  13. end.
Success #stdin #stdout 0.01s 5324KB
comments (?)
stdin 
Standard input is empty
stdout 
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
102
104
106
108
110
112
114
116
118
120
122
124
126
128
130
132
134
136
138
140
142
144
146
148
150
152
154
156
158
160
162
164
166
168
170
172
174
176
178
180
182
184
186
188
190
192
194
196
198
200
Bilangan Genap ke 24 adalah 48
https://ideone.com/CHJAvQ
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!