uses crt;varx:integer;beginX := ($C8 and $A7) Shr 2;write(x);end.
Standard input is empty
32
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!