static void Main(string[] args){
  // vamos verificar se o ano 2008
  // é bissexto
  int ano = 2008;

  if(DateTime.IsLeapYear(ano)){
    Console.WriteLine("O ano informado é bissexto");
  }
  else{
    Console.WriteLine("O ano informado NÃO é bissexto");
  }

  // pausa o programa
  Console.ReadKey();
}

import sys

# função principal do programa
def main():
  print("O diretório do programa é: ", sys.path[0])
 
if __name__== "__main__":
  main()

QObject, QPaintDevice
  QWidget
    QAbstractButton
      QPushButton
        QCommandLinkButton

# vamos importar os módulos necessários
import sys
from PyQt6.QtCore import *
from PyQt6.QtGui import *
from PyQt6.QtWidgets import *

# método que mostrará a janela principal
def mostrar_janela_principal():
  # cria uma instância da classe QApplication
  app = QApplication(sys.argv)
  
  # criamos a janela principal
  janela = QWidget()
  
  # definimos o título da janela
  janela.setWindowTitle("Cadastro de Clientes")
  
  # definimos as coordenadas e as dimensões da janela
  janela.setGeometry(100, 100, 500, 300)

  # vamos criar um botão QPushButton
  botao = QPushButton("Cadastrar", janela)
  
  # definimos a localização do botão 
  botao.move(10, 10)

  # tornamos a janela visível 
  janela.show()

  # e executamos a aplicação
  sys.exit(app.exec())

if __name__== "__main__":
  mostrar_janela_principal()

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  pesquisa: string;
  encontrou: Boolean;
begin
  // vamos solicitar o texto a ser pesquisado na ListBox
  pesquisa := InputBox('Pesquisar', 'Informe o texto', '');
  encontrou := false;

  // vamos usar um laço for para percorrer todos os itens
  // da ListBox
  for i := 0 to ListBox1.Count - 1 do
    begin
      if ListBox1.Items[i] = pesquisa then
        begin
          encontrou := true;
          // vamos selecionar o item encontrado
          ListBox1.ItemIndex := i;
          ShowMessage('O texto pesquisado foi encontrado ' +
            'no índice ' + IntToStr(ListBox1.ItemIndex));
        end;
    end;

    // não foi encontrado?
    if not encontrou then
      begin
        ShowMessage('O texto pesquisado não foi encontrado.');
      end;
end;