{$MODE OBJFPC} var I: Integer; P: PInteger;begin P := @I; for I := 1 to 10 do begin P^ += 1; Write(I:3); end;end.
Standard input is empty
2 4 6 8 10
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!