Smart pascal source code
var i: Integer;
for i := Low(i) to High(i)step High(i) div 10 do
WriteLn(i);
for i := High(i) downto Low(i)step High(i) div 10 do
WriteLn(i);
{<<< RESULT - CONSOLE LOG >>>
-----------------------------
-9223372036854775808
-8301034833169298228
-7378697629483820648
-6456360425798343068
-5534023222112865488
-4611686018427387908
-3689348814741910328
-2767011611056432748
-1844674407370955168
-922337203685477588
-8
922337203685477572
1844674407370955152
2767011611056432732
3689348814741910312
4611686018427387892
5534023222112865472
6456360425798343052
7378697629483820632
8301034833169298212
9223372036854775792
9223372036854775807
8301034833169298227
7378697629483820647
6456360425798343067
5534023222112865487
4611686018427387907
3689348814741910327
2767011611056432747
1844674407370955167
922337203685477587
7
-922337203685477573
-1844674407370955153
-2767011611056432733
-3689348814741910313
-4611686018427387893
-5534023222112865473
-6456360425798343053
-7378697629483820633
-8301034833169298213
-9223372036854775793
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}