public class Estudos{ 
  static final int VALOR = 45;  

  public static void main(String args[]){ 
    // vamos tentar alterar o valor da
    // constante
    VALOR = 10;
  } 
}

Estudos.java:7: cannot assign a value to 
final variable VALOR
    VALOR = 10;
    ^
1 error

// superclasse
final class Pessoa{
  public String nome;
}

// subclasse
class Aluno extends Pessoa{
  public String matricula;
}

public class Estudos{ 
  public static void main(String args[]){ 
    // Cria um objeto da classe Aluno
    Aluno a = new Aluno();
  } 
}

Estudos.java:7: cannot inherit from 
final Pessoa
class Aluno extends Pessoa{
                    ^
1 error

// superclasse
class Pessoa{
  protected String nome;

  public final String getNome(){
    return this.nome;
  }
}

// subclasse
class Aluno extends Pessoa{
  // estamos sobrescrevendo o método
  // herdado da superclasse
  public final String getNome(){
    return "Aluno: " + this.nome;
  }
}

public class Estudos{ 
  public static void main(String args[]){ 
    // Cria um objeto da classe Aluno
    Aluno a = new Aluno();
  } 
}

Estudos.java:14: getNome() in Aluno cannot 
override getNome() in Pessoa; overriden method is final
  public final String getNome(){
                      ^
1 error

Informe a distância em quilômetros: 2.5
Distância em Quilômetros: 2.5
Distância em Metros: 2500.0
Distância em Centímetros: 250000.0
Distância em Milímetros: 2500000.0

; Variáveis usadas na resolução do problema
(let ((quilometros)(metros)(centimetros)(milimetros))
  ; vamos ler a quantidade de quilômetros
  (princ "Informe a distância em quilômetros: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  ; atribui o valor lido à variável quilometros
  (setq quilometros (read))
  
  ; vamos calcular a distância em metros
  (setq metros (* quilometros 1000.0))
  ; vamos calcular a distância em centímetros
  (setq centimetros (* quilometros 100000.0))
  ; e agora a distância em milímetros
  (setq milimetros (* quilometros 1000000.0))
  
  ; E mostramos o resultado
  (format t "Distância em Quilômetros: ~F" quilometros)
  (format t "~%Distância em Metros: ~F" metros)
  (format t "~%Distância em Centímetros: ~F" centimetros)
  (format t "~%Distância em Milímetros: ~F" milimetros)
)

// 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.Runtime.InteropServices;

[DllImport("user32.dll", EntryPoint = "SendMessage", 
  CharSet = CharSet.Auto, SetLastError = true)]
private static extern IntPtr SendMessage(IntPtr hWnd, uint Msg, 
  IntPtr wParam, IntPtr lParam);

private void button2_Click(object sender, EventArgs e){
  // antes de executar este exemplo certifique-se de que
  // a propriedade Multiline do TextBox esteja definida
  // como true e a propriedade ScrollBars contenha o valor
  // Vertical ou Both
  textBox1.Multiline = true;
  textBox1.ScrollBars = ScrollBars.Vertical;
    
  // constante para a mensagem WM_VSCROLL
  const uint WM_VSCROLL = 0x115;
  // constante para o parâmetro wParam
  const int SB_TOP = 6;
  
  // handle para a caixa de texto
  IntPtr handle = textBox1.Handle;
  IntPtr wParam = (IntPtr)SB_TOP;
  IntPtr lParam = IntPtr.Zero;
  
  // vamos fazer com que o TextBox role para o topo (parte superior)
  SendMessage(textBox1.Handle, WM_VSCROLL, wParam, lParam);
}

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

  // vamos inverter o conteúdo da string
  nome := ReverseString(nome);

  // vamos exibir o resultado
  ShowMessage(nome);
end;