procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos inserir um novo item na TListBox
  ListBox1.Items.Add('Osmar J. Silva');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos obter o texto do item selecionado na TListBox
  ShowMessage(ListBox1.Items[ListBox1.ItemIndex]);
end;

import java.util.*;

public class Estudos{ 
  public static void main(String args[]){ 
    // Cria uma Stack de String
    Stack<String> pilha = new Stack<String>();
    
    // adiciona três elementos na pilha
    pilha.push("Cuiabá");
    pilha.push("Goiânia");
    pilha.push("Belo Horizonte");

    // remove os elementos, sempre removendo o 
    // elemento do topo primeiro
    while(!pilha.empty()){
      String elem = pilha.pop();
      System.out.println("Elemento removido: " + elem);
    }    
  } 
}

; vamos declarar uma variável global
(defvar valor 10)

; vamos mostrar o valor atual da variável global
(format t "O valor da variável global é ~D" valor)

; agora vamos acessar a variável global
; de dentro de uma função
(defun ModificaValor()
  ; vamos alterar o valor da variável global
  (setq valor 50)
)

; chamamos a função ModificaValor
(ModificaValor)

; e checamos se o valor da variável global foi
; mesmo alterado
(terpri)
(format t "O valor da variável global é ~D" valor)

; vamos declarar três variáveis globais
(defparameter *a* 5)
(defparameter *b* 3)
(defparameter *soma* 0)

; agora vamos acessar as variáveis globais
; de dentro de uma função
(defun Somar()
  ; vamos somar as duas variáveis globais
  ; e guardar o resultado em uma terceira
  ; variáveis global
  (setq *soma* (+ *a* *b*))
)

; chamamos a função Somar
(Somar)

; e mostramos o resultado da soma
(format t "A soma das variáveis globais é ~D" *soma*)

// obtém o resultado do cálculo
int res = 4 + 5; // aqui também pode

/*
 Este exemplo mostra como verificar se
 um número é par ou ímpar.  
*/

Informe o primeiro número: 28
Informe o segundo número: 4318
Os dois números possuem o último dígito igual.

Informe o primeiro número: 39
Informe o segundo número: 93
Os dois números não possuem o último dígito igual.

package estudos;

import java.util.Scanner;

public class Estudos {
  public static void main(String[] args) {
    // para ler a entrada do usuário
    Scanner entrada = new Scanner(System.in);
    
    // vamos pedir para o usuário informar dois inteiros
    System.out.print("Informe o primeiro número: ");
    int n1 = Integer.parseInt(entrada.nextLine());
    System.out.print("Informe o segundo número: ");
    int n2 = Integer.parseInt(entrada.nextLine());
    
    // agora vamos testar se os dois números terminam com
    // o mesmo último dígito
    if(Math.abs(n1 % 10) == Math.abs(n2 % 10)){
      System.out.println("Os dois números possuem o último dígito igual.");
    }
    else{
      System.out.println("Os dois números não possuem o último dígito igual.");
    }
  }
}