from datetime import datetime
import locale

def main():
  # Configurações do usuário
  locale.setlocale(locale.LC_ALL, '')
 
  # Obtém um datetime da data e hora atual
  hoje = datetime.today()
 
  # Exibe a data atual formatada
  data = hoje.strftime("Hoje é %A, %d de %B de %Y")
  print(data)
 
if __name__== "__main__":
  main()

=ALEATÓRIO()

JTableHeader titulos = tabela.getTableHeader();
titulos.setBackground(Color.ORANGE);

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;

programa {
  // vamos incluir a biblioteca Texto
  inclua biblioteca Texto --> texto
  
  funcao inicio() {
    // vamos declarar uma variável para guardar um nome
    cadeia nome, novo_nome

    // vamos pedir para o usuário informar o seu nome
    escreva("Informe o seu nome: ")
    leia(nome)
    
    // agora vamos remover todos os espaços do nome informado
    novo_nome = texto.substituir(nome, " ", "")

    // e mostramos os resultados
    escreva("Você informou o nome: " + nome)
    escreva("\nSem os espaços: " + novo_nome) 
  }
}