var f: single; i: integer = 8; begin f := i; writeln(f); readln;end.
Standard input is empty
8.000000000E+00
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!