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;

Informe o valor da hora aula: 28
Informe o número de horas trabalhadas no mês: 12
Informe o percentual de desconto do INSS: 8
Salário Bruto: R$ 336,00
Total de Descontos: R$ 26,88
Salário Líquido: R$ 309,12

import locale

# função principal do programa
def main():
  locale.setlocale(locale.LC_ALL, 'pt_BR.UTF-8')
  
  # vamos ler o valor do hora aula
  valor_hora_aula = float(input("Informe o valor da hora aula: "))
    
  # vamos ler o número de horas trabalhadas no mês
  horas_trabalhadas = int(input("Informe o número de horas trabalhadas no mês: "))
    
  # vamos ler o percentual de desconto do INSS
  percentual_desconto_inss = float(input("Percentual de desconto do INSS: "))
    
  # vamos calcular o salário bruto
  salario_bruto = valor_hora_aula * horas_trabalhadas
    
  # agora calculamos o total do desconto
  total_desconto = (percentual_desconto_inss / 100) * salario_bruto
    
  # finalmente calculamos o salário líquido
  salario_liquido = salario_bruto - total_desconto
    
  # mostramos o resultado
  print("Salário Bruto: R$ {0}".format(locale.currency(salario_bruto, 
    grouping=True, symbol=None)))
  print("Total de Descontos: R$ {0}".format(locale.currency(total_desconto, 
    grouping=True, symbol=None)))
  print("Salário Líquido: R$ {0}".format(locale.currency(salario_liquido, 
    grouping=True, symbol=None)))
  
if __name__== "__main__":
  main()

<?
  // vamos usar a função min() para obter o menor
  // entre três valores inteiros
  $menor = min(5, 12, 4);

  // vamos exibir o resultado
  echo "O menor valor é: " . $menor;
?>

<?
  // vamos usar a função min() para obter o elemento
  // com menor valor em uma matriz
  
  
  // vamos criar uma matriz com cinco elementos
  $valores = array(9, 3, 21, 49, 2);  

  // vamos obter o menor elemento
  $menor = min($valores);

  // vamos exibir o resultado
  echo "O menor valor é: " . $menor;
?>

O menor valor é: 2

# vamos criar um array de nomes
nomes = []

# Lê entrada até que o valor -1 seja
# fornecido
loop do
  print "Digite um nome (-1 para sair): "
  nome = gets.chomp
  
  # vamos adicionar este nome no final do
  # array
  if nome != "-1"
    nomes.push(nome) # adiciona o nome ao array
  end
  
  # vamos sair do laço se o valor for "-1"
  if nome == "-1"
    break
  end
end

# Exibe todos os valores do array
puts "\nOs nomes fornecidos foram:"
nomes.each do | nome |
  puts nome
end

using System;

namespace Estudos {
  class Program {
    static void Main(string[] args) {
      // vamos obter a data e hora atual
      DateTime agora = DateTime.Now;

      // agora vamos obter o dia da data
      int dia = agora.Day;

      // e mostramos o resultado
      Console.WriteLine("O dia do mês é: {0:D}", dia);

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

SELECT REPLACE(NOME, ' ', '_') FROM CLIENTES WHERE ID = 1;

REPLACE
OSMAR_J._SILVA

using System;
using Autodesk.Revit.UI;
using Autodesk.Revit.DB;
using Autodesk.Revit.UI.Selection;
using System.Collections.Generic;
using System.Linq;

namespace Estudos {
  [Autodesk.Revit.Attributes.Transaction(Autodesk.Revit.Attributes.
    TransactionMode.Manual)]
  [Autodesk.Revit.DB.Macros.AddInId("ED8EC6C4-9489-48F7-B04E-B45B5D1BEB12")]
  public partial class ThisApplication {
    private void Module_Startup(object sender, EventArgs e) {
      // vamos obter uma referência ao UIDocument ativo
      UIDocument uidoc = this.ActiveUIDocument;
      
      // agora mostramos uma mensagem para o usuário selecionar um
      // elemento
      TaskDialog.Show("Aviso", "Selecione um ou mais elementos");
      
      // obtemos uma referência ao objeto Selection do
      // UIDocument ativo
      Selection selecao = uidoc.Selection;
    
      // e finalmente esperamos que o usuário selecione um ou
      // mais elementos e os guardamos em uma lista
      IList<Reference> selecionados = selecao.PickObjects(ObjectType.Element);
    
      // agora mostramos a quantidade de elementos selecionados
      TaskDialog.Show("Aviso", "Você selecionou " + selecionados.Count +
        " elementos.");
    }

    private void Module_Shutdown(object sender, EventArgs e) {
      // para fazer alguma limpeza de memória ou algo assim
    }

    #region Revit Macros generated code
    private void InternalStartup() {
      this.Startup += new System.EventHandler(Module_Startup);
      this.Shutdown += new System.EventHandler(Module_Shutdown);
    }
    #endregion
  }
}

// Como somar os dígitos de um número em Portugol
programa {
  funcao inicio() {
    inteiro numero, soma

    // inicia a soma como zero
    soma = 0

    // vamos pedir um número inteiro positivo
    escreva("Informe um número inteiro positivo: ")
    // lê o número informado
    leia(numero)

    // enquanto o número for diferente de 0
    enquanto (numero != 0) {
      // adiciona à soma o resultado da divisão do número por 10
      soma = soma + (numero % 10)
      // agora dividimos os número por 10 (divisão inteira) e continuamos
      numero = inteiro(numero / 10)
    }

    // e mostramos o resultado
    escreva("A soma dos dígitos é: ", soma)
  }
}

using System;
using System.Text.RegularExpressions;

namespace Estudos {
  class Program {
    static void Main(string[] args) {
      // vamos construir o Regex com o padrão que queremos
      Regex regex = new Regex("\\s +", RegexOptions.IgnoreCase | 
        RegexOptions.Compiled);

      // frase com espaços
      string frase = "   Gosto    muito     de    C#    ";

      // frase sem espaços
      string resultado = (regex.Replace(frase, " ")).Trim();

      // mostramos o resultado
      Console.WriteLine("Frase com espaços em excesso: {0}", frase);
      Console.WriteLine("Espaços em excesso removidos: {0}", resultado);

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

Frase com espaços em excesso:
    Gosto    muito     de    C#
Espaços em excesso removidos:
Gosto muito de C#

Informe o 1º valor: 5
Informe o 2º valor: 1
Informe o 3º valor: 20
Informe o 4º valor: 6
Informe o 5º valor: 3
Informe o 6º valor: 4
Informe o 7º valor: 7
Informe o 8º valor: 12
Informe o 9º valor: 9
Informe o 10º valor: 8

O maior valor lido foi: 20
O menor valor lido foi: 1

Imports System

Module Program
  Sub Main(args As String())
    Dim valor As Integer ' guarda o valor lido
    Dim maior, menor As Integer ' variáveis que guardarão
    ' o maior e o menor valor lido

    ' vamos pedir ao usuário que informe 10 valores inteiros
    For i As Integer = 1 To 10 Step 1
      Console.Write("Informe o " & i & "º valor: ")
      valor = Integer.Parse(Console.ReadLine())

      ' esta é a primeira iteração do laço? se for vamos assumir que o
      ' maior e menor valor lido são o primeiro valor informado
      If i = 1 Then
        maior = valor
        menor = valor
      Else ' não é a primeira iteração
        ' vamos verificar se é maior que o valor atual da variável maior
        If valor > maior Then
          maior = valor
        End If
        ' vamos verificar se é menor que o valor atual da variável menor
        If valor < menor Then
          menor = valor
        End If
      End If
    Next

    ' vamos exibir o maior e o menor valor lido
    Console.WriteLine(vbCrLf & "O maior valor lido foi: " & maior)
    Console.WriteLine("O menor valor lido foi: " & menor)

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module