fork download
copy 
  1. Var I: Integer;
  2.     A: PInteger=@I;
  3. Begin
  4.  For I := 0 To 50 Do
  5.  Begin
  6.   Writeln(I);
  7.   A^ += 9;
  8.  End;
  9.  Readln;
  10. End.
Success #stdin #stdout 0.01s 208KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0
10
20
30
40
50
https://ideone.com/Gh9pxi
language:
Pascal (fpc 3.0.4)
created:
11 years ago
visibility:
secret

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!