fork download

copy

var
  number: longint;
  low,high:Integer;
begin
  {$APPTYPE CONSOLE}
  write('Enter number>0');
  Readln(number);
  high:=31;
  low:=0;
  while(low<=(high shr 1)) do
  begin
    if(((number shr low) xor (number shr (high-low))) and 1) then
      number:=number xor ((1 shl low) or (1 shl (high-low)));
    Inc(low);
  end;
  writeln('New number - ',number);
  readln;
end.
 

Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(5,4) Warning: APPTYPE is not supported by the target OS
prog.pas(12,7) Error: Boolean expression expected, but got "LongInt"
prog.pas(19) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty