program z;var x,y:real;beginreadln(x);y:=x*x-6*x-1;writeln(y);end.
Standard input is empty
Standard output is empty
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!