1:
　2:
　3:
　4:
　5:
　6:
　7:
　8:
　9:
 10:
 11:
 12:
 13:
 14:
 15:
 16:
 17:
 18:
 19:
 20:
 21:
 22:

{ example }
program prog1(input, output);
{変数宣言}
var
  nisin : array[1..16] of Integer;
  jyu,i : Integer;
begin
  {入力}
  write('10進数を入力：');
  read(jyu);

  {変換}
  for i:=1 to 16 do begin
    nisin[i] := jyu mod 2;
    jyu := Trunc(jyu / 2);
  end;

  {出力}
  for i:=16 downto 1 do begin
    write(nisin[i]);
  end;
end.