----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  frase, substring: string;
begin
  frase := 'Programar em Delphi é muito bom';

  // vamos obter a substring "Delphi"
  substring := AnsiMidStr(frase, 14, 6);

  // vamos exibir o resultado
  ShowMessage('Resultado: ' + substring);
end;

Numeros primos entre 2 e 100: 
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

programa {
  funcao inicio() {
    // limite dos números primos (incluindo)
    inteiro limite = 100
    logico primo

    // Lembre-se! O número 1 não é primo
    escreva("Numeros primos entre 2 e " + limite + ":\n")
  
    // laço que percorre os valores de 2 até o limite desejado
    para (inteiro i = 2; i <= limite; i++) {
      primo = verdadeiro
                       
      // se o valor de i for 7, a variável j do laço contará
      // de 2 até 7 / 2 (divisão inteira), ou seja, 3. Se o 
      // módulo de 7 por qualquer um dos valores neste intervalo 
      // for igual a 0, então o número não é primo
      para (inteiro j = 2; j <= (i / 2); j++) {
        se (i % j == 0) {
          primo = falso // não é primo
          pare
        }
      }
    
      se (primo == verdadeiro) {
        escreva(i, " ")
      }
    }
  }
}

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

// criamos uma classe que servirá como thread
class MinhaThread extends Thread{
  private String nome;  

  public MinhaThread(String nome){
    this.nome = nome;
  }   

  public void run(){
    for(int i = 1; i <= 20; i++){
      System.out.println(nome + ": " + i);

      if((i >= 3) && (nome.equals("Thread 1"))){
        try{
          System.out.println(nome + " foi eliminada");
          return; // interrompe a execução do método run()
        }
        catch(SecurityException e){
          System.out.println(e.getMessage());
        }      
      }
    }
  }
}

public class Estudos{
  public static void main(String[] args){
    // vamos criar duas threads
    MinhaThread t1 = new MinhaThread("Thread 1");
    t1.start();    

    MinhaThread t2 = new MinhaThread("Thread 2");
    t2.start();
  }
}

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

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");
    }
  }
}