int contador = 0; // guardará a quantidade de valores pares lidos

public static void main(String[] args){
  // para este exercício você deverá importar a classe
  // Scanner. Ela está no pacote java.util.*;
    
  // vamos construir um objeto da classe Scanner para ler a
  // entrada do usuário
  Scanner entrada = new Scanner(System.in);

  int valor; // guarda o valor lido
  int contador = 0; // guardará a quantidade de valores pares lidos

  // vamos pedir ao usuário que informe 10 valores inteiros
  for(int i = 0; i < 10; i++){
    System.out.print("Informe o " + (i + 1) + "º valor: ");
    valor = Integer.parseInt(entrada.nextLine());

    // vamos verificar se o valor lido é par
    if(valor % 2 == 0){
      contador++;
    }
  }

  // vamos exibir a quantidade de números pares lidos
  System.out.println("\nVocê informou " + contador + " valores pares.\n");
}

procedure TForm3.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  grid: TDBGrid;
begin
  // obtém um referência ao DBGrid
  grid := sender as TDBGrid;

  // o número da coluna é par?
  if Odd(DataCol) then
    grid.Canvas.Brush.Color := clWhite
  else
    grid.Canvas.Brush.Color := clYellow;

  // vamos terminar de colorir a célula
  grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

void main() {
  int cont = 1;

  while (cont < 10) {
    print(cont);
    cont++; // aumenta cont em 1
  }
}

void main() {
  int cont = 0;
  int numero = 1;

  // queremos encontrar 10 múltiplos de 5 e 7
  while (cont < 10) {
    if ((numero % 5 == 0) && (numero % 7 == 0)) {
      print(numero);
      cont++;
    }

    // incrementa o número
    numero++;
  }
}

procedure TForm3.Button1Click(Sender: TObject);
var
  // vamos declarar uma matriz de 10 inteiros
  valores: array[1..10] of Integer;
  i: Integer;
begin
  // vamos inicializar a matriz com os números pares de 2 até 20
  for i := Low(valores) to High(valores) do
    begin
      valores[i] := i * 2;
    end;

  // vamos exibir os valores dos elementos
  for i := Low(valores) to High(valores) do
    begin
      Memo1.Lines.Add(IntToStr(valores[i]));
    end;
end;