var T: array [0..9] of Single; P: PSingle;begin P := T; P[4] := 3.14; Write(P[4]); ReadLn();end.
Standard input is empty
3.140000105E+00
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!