var
  valor: integer;
  pvalor: ^integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  valor: integer;
  pvalor: ^integer;
begin
  // atribui um valor à variável valor
  valor := 20;

  // vamos atribuir à pvalor o endereço de valor
  pvalor := @valor;

  // vamos usar o ponteiro pvalor para alterar o
  // valor de valor
  pvalor^ := 30;

  // vamos obter o novo valor da variável valor
  ShowMessage('Valor de valor: ' + IntToStr(valor));
end;

package estudos;

public class Estudos {

  public static void main(String[] args) {
    // Este exemplo mostra como verificar se uma
    // string está toda em letras maiúsculas
    String frase = "PROGRAMANDO EM JAVA";
    boolean maiusculas = true;

    for (int i = 0; i < frase.length(); i++) {
      Character caractere = frase.charAt(i);
      if (Character.isWhitespace(caractere)) {
        continue;
      }
      if (!Character.isUpperCase(caractere)) {
        maiusculas = false;
        break;
      }
    }

    if (maiusculas) {
      System.out.println("A string esta toda em letras maiusculas");
    }
    else{
      System.out.println("A string NAO esta toda em letras maiusculas");
    }
  }
}

#include <iostream>

using namespace std;

// função principal do programa
int main(int argc, char *argv[]){
  // gravidade terrestre em m/s2
  double gravidade = 9.80665;
  // massa do corpo
  double massa = 2; // em kg
  // altura do corpo em relação ao chão
  double altura = 1.5; // em metros
  
  // vamos calcular a energia potencial gravitacional
  double epg = massa * gravidade * altura;
  
  // mostramos o resultado
  cout << "A Energia Potencial Gravitacional é: " << epg << "J";
		
  cout << "\n" << endl;
  system("PAUSE"); // pausa o programa
  return EXIT_SUCCESS;
}

Imports System

Module Program
  Sub Main(args As String())
    Dim site As String = "Arquivo de Códigos"

    ' obtém o tamanho da string
    Dim tam As Integer = site.Length

    Console.WriteLine("A string contém " & tam &
      " caracteres")

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