procedure TForm2.Button1Click(Sender: TObject);
var
  a, b, c: Real;
begin
  a := 20; // medida do cateto oposto
  b := 30; // medida do cateto adjascente

  // agora vamos calcular o comprimento da hipotenusa
  c := sqrt(sqr(a) + sqr(b));

  // e mostramos o resultado
  Edit1.Text := 'A medida da hipotenusa é: ' +
    FloatToStr(c);
end;

6   10   4
2    9   7
20   3   1

Maior elemento na coluna 0 é 20
Maior elemento na coluna 1 é 10
Maior elemento na coluna 2 é 7

package estudos;

public class Estudos {
  public static void main(String[] args) {
    // vamos declarar e constuir uma matriz de 3 linhas e três colunas
    int matriz[][] = {{6, 10, 4}, {2, 9, 7}, {20, 3, 1}};
    
    // vamos percorrer a matriz e exibir o maior elemento de cada coluna
    // começamos com cada coluna
    for(int i = 0; i < matriz[0].length; i++){
      // assumimos que o maior valor é o primeiro dessa coluna
      int maior = matriz[0][i];
      // percorremos todos os elementos desta linha
      for(int j = 0; j < matriz.length; j++){
        // o elemento atual é maior que o maior?
        if(matriz[j][i] > maior){
          // maior assume o valor atual
          maior = matriz[j][i];
        }
      }
      
      // exibimos o maior elemento desta coluna
      System.out.println("Maior elemento na coluna " + i + " é " + maior);
    }
  }
}

procedure TForm3.Button3Click(Sender: TObject);
var
  indice: Integer;
begin
  // vamos obter o índice da linha da célula atual
  indice := TStringGrid(DBGrid1).Row;
  ShowMessage('O índice da linha da célula atual é: ' +
    IntToStr(indice));
end;

package arquivodecodigos;

public class Estudos{
  public static void main(String[] args){
    String arquivo = "Pessoa.java";
    
    // o nome do arquivo termina em ".java"?
    if(arquivo.endsWith(".java")){
      System.out.println("O arquivo contém a extensão desejada");
    }
    else{
      System.out.println("O arquivo não contém a extensão desejada");  
    }
          
    System.exit(0);
  }
}