fork download
copy 
  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 0s 5320KB
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
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/QQA1kz
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!