procedure listarArquivosDir(diretorio: string; lista: TStrings);
var
  search_rec: TSearchRec;
begin
  if FindFirst(diretorio + '*.*', faAnyFile, search_rec) = 0 then
    begin
      repeat
        if search_rec.Attr <> faDirectory then
          lista.Add(search_rec.Name);
      until FindNext(search_rec) <> 0;

      FindClose(search_rec);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  listarArquivosDir('c:\', ListBox1.Items);
end;

from datetime import datetime

def main():
  # Obtém um datetime da data e hora atual
  hoje = datetime.today()

  # Exibe o dia do mês como um decimal
  print(hoje.strftime("O dia do mês é: %d"))

if __name__== "__main__":
  main()

package arquivodecodigos;

import java.time.LocalDateTime;
import java.time.format.DateTimeFormatter;

public class Estudos{
  public static void main(String[] args){
    DateTimeFormatter dtf = DateTimeFormatter.ofPattern("HH:mm:ss");  
    LocalDateTime agora = LocalDateTime.now();  
    System.out.println("A hora atual é: " + dtf.format(agora));
  }
}

Informe o ano: 2024
O ano informado é bissexto.

using System;

namespace Estudos {
  class Principal {
    // função principal do programa C#
    static void Main(string[] args) {
      // vamos solicitar que o usuário informe um ano
      Console.Write("Informe o ano: ");
      int ano = Int32.Parse(Console.ReadLine());

      // vamos verificar se o ano informado é bissexto
      if (((ano % 4 == 0) && (ano % 100 != 0)) || (ano % 400 == 0)){
        Console.WriteLine("O ano informado é bissexto.");
      }
      else {
        Console.WriteLine("O ano informado não é bissexto.");
      }

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

#include <iostream>

using namespace std;

int main(int argc, char *argv[])
{
  // declara e inicializa um array de
  // 5 inteiros
  int valores[] = {2, 7, 1, 5, 6};
  int soma = 0;

  // soma os valores dos elementos
  for(int i = 0; i < 5; i++){
    soma += valores[i];
    // o mesmo que
    // soma = soma + valores[i];
  }

  // exibe o resultado
  cout << "Soma: " << soma << endl;

  system("PAUSE"); // pausa o programa
  return EXIT_SUCCESS;
}