{****************************************************}
{*** Girilen Decimal Sayıyı Binary Sayıya Çevirir ***}
{****************************************************}

Uses crt;
var
 Sayi              : Integer;
 CH, STRNG, BINARI : String;
 i, N, X           : Integer;

Begin
  Clrscr;
  Write('Decimal Sayıyı Giriniz: ');ReadLn(n);

  BINARI := '';
  STRNG  := '';
  X := N;

  Repeat
    STR (N MOD 2, CH);
    STRNG := STRNG + CH;
    N := N DIV 2;

    If N < 2 Then
      Begin
        STR (N, CH);
        STRNG := STRNG + CH;
      End;
  Until N < 2;

  Write ('Sayının Tersi :', STRNG);
  WriteLn;
  Write (X, ' Sayısının BINARY Karşılığı : ');

  For i := Length (STRNG) DownTo 1 Do
    BINARI := BINARI + STRNG [i];

  WriteLn (BINARI);
  ReadKey;
End.