Sub ExemploLacoFor()
  ' exemplo de laço For Next que conta de 0 até 10
  For i = 0 To 10
    MsgBox "O valor de i é: " & i
  Next
End Sub

Sub ExemploLacoFor()
  ' exemplo de laço For Next que mostra os números
  ' pares de 0 até 10
  For i = 0 To 10 Step 2
    MsgBox "O valor de i é: " & i
  Next
End Sub

Sub ExemploLacoFor()
  ' exemplo de laço For Next que mostra os números
  ' pares de 10 até 0
  For i = 10 To 0 Step -2
    MsgBox "O valor de i é: " & i
  Next
End Sub

public void copyInto(Object[] anArray)

package estudos;

import java.util.*;

public class Estudos{ 
  public static void main(String args[]){ 
    // Cria o Vector
    Vector<String> nomes = new Vector<String>();

    // adiciona itens ao Vector
    nomes.addElement("Osmar");
    nomes.addElement("Marcos");
    nomes.addElement("Ingrid");

    // Cria o array
    String[] arrayNomes = new String[3];

    // copia os elementos do Vector para o array
    nomes.copyInto(arrayNomes);

    // Exibe o conteúdo do array
    for(int i = 0; i < arrayNomes.length; i++){
      System.out.println(arrayNomes[i]); 
    }     
  } 
}

procedure TForm1.Button1Click(Sender: TObject);
var
  hoje: TDateTime;
begin
  // não esqueça de adicionar DateUtils ao seus uses

  // vamos obter a data de hoje
  hoje := Now;

  // vamos exibir a data de hoje
  ShowMessage('Hoje é: ' + DateToStr(hoje));

  // vamos adicionar 4 dias à data de hoje
  hoje := IncDay(hoje, 4);

  // vamos exibir o resultado
  ShowMessage('Daqui a 4 dias será: ' + DateToStr(hoje));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hoje: TDateTime;
begin
  // não esqueça de adicionar DateUtils ao seus uses

  // vamos obter a data de hoje
  hoje := Now;

  // vamos exibir a data de hoje
  ShowMessage('Hoje é: ' + DateToStr(hoje));

  // vamos subtrair 5 dias da data de hoje
  hoje := IncDay(hoje, -5);

  // vamos exibir o resultado
  ShowMessage('Há 5 dias era: ' + DateToStr(hoje));
end;

; Vamos definir as variáveis que vamos
; usar no programa
(defvar numero)
(defvar raiz)

; Este o programa principal
(defun RaizQuadrada()
  ; Vamos ler o número
  (princ "Informe um número: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  ; atribui o valor lido à variável numero
  (setq numero (read))
  
  ; calcula a raiz quadrada do número informado
  (setq raiz (sqrt numero))
  
  ; E mostramos o resultado
  (format t "A raiz quadrada de ~F é ~F" numero
    raiz)
)

; Auto-executa a função RaizQuadrada()
(RaizQuadrada)