procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer; // variável de controle
begin
  // este laço contará de 0 até 10
  i := 0;

  while i <= 10 do
    begin
      ShowMessage(IntToStr(i)); // a mensagem será exibida 10 vezes
      Inc(i); // vamos incrementar a variável de controle
    end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer; // variável de controle
begin
  // este laço contará de 10 até 0
  i := 10;

  while i >= 0 do
    begin
      ShowMessage(IntToStr(i)); // a mensagem será exibida 10 vezes
      Dec(i); // vamos decrementar a variável de controle
    end;
end;

using System;
using System.Collections;

namespace Estudos {
  class Principal {
    static void Main(string[] args) {
      // Cria o ArrayList
      ArrayList lista = new ArrayList();

      // Adiciona 5 inteiros
      lista.Add(30);
      lista.Add(2);
      lista.Add(98);
      lista.Add(1);
      lista.Add(7);

      // Percorre os elementos da ArrayList
      Console.WriteLine("Os elementos no ArrayList são:\n");
      foreach (int valor in lista) {
        Console.Write("{0} ", valor);
      }

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

#include <string>
#include <iostream>

using namespace std;

int main(int argc, char *argv[]){
  // vamos criar uma string
  string frase = "Gosto de Java e C++";
  cout << "A string informada foi: " << frase << endl;
  
  // agora vamos checar a existência da substring
  size_t pos = frase.find("Java");

  // a substring foi encontrada?
  if(pos == string::npos){
    cout << "A substring nao foi encontrada." << endl;
  }
  else{
    cout << "A substring foi encontrada" <<
      " no indice " << pos << endl;
  }

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

package estudos;
 
public class Estudos {
  public static void main(String args[]) {
    // vamos declarar um objeto da classe StringBuffer
    StringBuffer frase = new StringBuffer("Programar em é bom demais");
    System.out.println("A frase original é: " + frase);
    
    // agora vamos inserir a palavra "Java" no índice 13
    frase.insert(13, "Java ");
    
    // e agora mostramos o resultado
    System.out.println("O resultado é: " + frase);
  }
}