fork download
copy 
  1. program ideone;
  2. var 
  3. 	arr:array[1..100] of integer;
  4. 	i: integer;
  5. begin
  6. 	(* your code goes here *)
  7. 	arr[1] := 6;
  8. 	arr[2] := 6;
  9. 	arr[3] := 6;
  10. 	arr[4] := 6;
  11. 	for i:=5 to 60 do
  12. 	begin
  13. 		arr[i] := arr[i-1] + arr[i-4];
  14. 		writeln(arr[i]);
  15. 	end;
  16. end.
Success #stdin #stdout 0s 5520KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
12
18
24
30
42
60
84
114
156
216
300
414
570
786
1086
1500
2070
2856
3942
5442
7512
10368
14310
19752
27264
37632
51942
71694
98958
136590
188532
260226
359184
495774
684306
944532
1303716
1799490
2483796
3428328
4732044
6531534
9015330
12443658
17175702
23707236
32722566
45166224
62341926
86049162
118771728
163937952
226279878
312329040
431100768
595038720
https://ideone.com/zleiyK
language:
Pascal (gpc 20070904)
created:
3 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!