1st OAIP laba

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  m, n, ArrNum, k, x: Integer;
  Bin: array [0..255] of Integer;
begin
   readln(m);
   ArrNum:= 0;
   x:=0;
   writeln('');

   while m > 0 do
     begin
     x:=x+1 ;
     Bin[ArrNum]:= m mod 2;
     //write(bin[arrnum]);
     m:= m div 2;
     ArrNum:= ArrNum+1;

   end;
   writeln('');


    //for x:=x downto 1 do
         //begin
           //write(bin[arrnum]);
        // end;
   k:=1;
   ArrNum:= ArrNum-1;
   n:= 0;

   while ArrNum >= 0 do
     begin
     n:= n + Bin[ArrNum]*k;
     k:=k*2;
     //write(bin[arrnum]);
     ArrNum:=ArrNum-1;

   end;


   writeln('');
   writeln (n);
   readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.