Informe um número decimal: 9
O número binário é: 00000000000000000000000000001001

using System;

namespace Estudos {
  class Principal {
    // vamos definir o tamanho do vetor para guardar
    // os dígitos do número binário
    const int TAM_INT = sizeof(int) * 8;

    static void Main(string[] args) {
      // variáveis para ajudar a resolver o problema
      int dec, indice;

      // vetor para guardar o número binário
      int[] binario = new int[TAM_INT];

      // vamos pedir para o usuário informar um decimal inteiro
      Console.Write("Informe um número decimal: ");
      dec = int.Parse(Console.ReadLine());

      // ajustamos índice para o último elemento do vetor
      indice = TAM_INT - 1;

      // enquanto índice for maior ou igual a 0
      while (indice >= 0) {
        // vamos guardar o bit menos significativo LSB
        binario[indice] = dec & 1;

        // diminuímos o índice
        indice--;

        // desloca bits para a direita uma posição
        dec = dec >> 1;
      }

      // agora vamos exibir o número binário
      Console.Write("O número binário é: ");
      for (int i = 0; i < TAM_INT; i++) {
        Console.Write(binario[i]);
      }

      Console.WriteLine("\nPressione uma tecla para sair...");
      Console.ReadKey();
    }
  }
}

procedure TForm3.Button3Click(Sender: TObject);
begin
  // vamos definir a cor de fundo para a primeira coluna
  DBGrid1.Columns[0].Color := Graphics.clYellow;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  // vamos obter a cor de fundo da primeira coluna
  ShowMessage('A cor de fundo da coluna é: ' +
    ColorToString(DBGrid1.Columns[0].Color));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  data1, data2: TDateTime;
  quant_dias: Integer;
begin
  // vamos criar as duas datas, observe que as horas
  // também foram definidas

  // primeira data: 12/01/2010 às 09:10:15
  data1 := EncodeDateTime(2010, 1, 12, 9, 10, 15, 0);

  // segunda data: 15/01/2010 às 19:10:15
  data2 := EncodeDateTime(2010, 1, 15, 19, 10, 15, 0);

  // vamos obter a quantidade de dias entre as duas datas
  quant_dias := DaysBetween(data1, data2);

  // mostra o resultado
  ShowMessage('A diferença de dias é: ' + IntToStr(quant_dias));
end;

"""
  Este exemplo mostra como adicionar itens ao
  fim de uma lista de inteiros.
"""
def main():
  # cria uma lista vazia
  valores = []

  # início do laço for
  for i in range(1, 6):
    valor = int(input("Informe um inteiro: "))

    # insere o valor no final da lista
    valores.append(valor)

  # exibe os valores da lista
  print("Valores na lista:", valores, "\n")
    
if __name__== "__main__":
  main()

fun main(args: Array<String>) {
  print("Por favor, informe o seu nome: ")
  // vai ler o nome e guardar na variável nome
  var nome = readLine()
  println("Olá, $nome. Bem-vindo(a) ao Kotlin.")
}