#include <iostream>
 
using namespace std;
 
int main(int argc, char *argv[])
{
  // declara uma matriz de 10 elementos
  int valores[10];
 
  // vamos inicializar os elementos da matriz
  // usando valores aleatórios de 0 a 100
  srand(time(NULL));
 
  for(int i = 0; i < 10; i++){
    valores[i] = rand() % 100;
  }
 
  // exibe o resultado
  for(int i = 0; i < 10; i++){
    cout << "Índice: " << i << " - Valor: " <<
      valores[i] << endl;
  }
 
  system("PAUSE"); // pausa o programa
  return EXIT_SUCCESS;
}

C:\Users\Osmar>erl -version

Dim valor As Integer = 7

Select Case valor
  Case 1 To 5
    Console.WriteLine("Entre 1 e 5 (inclusive)")
  Case 6, 7, 8
    Console.WriteLine("Entre 6 e 8 (inclusive)")
  Case 9 To 10
    Console.WriteLine("Igual a 9 ou 10")
  Case Else
    Console.WriteLine("Não encontrado no teste")
End Select

procedure TForm1.Button1Click(Sender: TObject);
var
  nome: string; // declara uma variável do tipo string
  tamanho: integer; // declara uma variável do tipo inteiro
begin
  nome := 'Osmar';

  // vamos obter a quantidade de caracteres na string
  tamanho := Length(nome);

  // mostra o resultado
  ShowMessage('A string contém : ' + IntToStr(tamanho) +
    ' caracteres');
end;

private void button1_Click(object sender, EventArgs e) {
  // retorna o item selecionado na ListBox
  MessageBox.Show("O item selecionado é: " +
    listBox1.SelectedItem);
}