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

  // vamos obter a substring "bom"
  substring := AnsiRightStr(frase, 3);

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

import javax.swing.JOptionPane;

public class Main {
  public static void main(String[] args) {
    // vamos pedir ao usuário para informar um caractere qualquer
    char caractere = JOptionPane.showInputDialog("Informe um caractere:").charAt(0);
    
    // vamos testar se o caractere informado é um dígito
    if(Character.isDigit(caractere)){
      JOptionPane.showMessageDialog(null, "O caractere informado é um dígito");
    }
    else{
      JOptionPane.showMessageDialog(null, "O caractere informado não é um dígito"); 
    }
  }
}

import javax.swing.JOptionPane;

public class Main {
  public static void main(String[] args) {
    // vamos pedir ao usuário para informar um caractere qualquer
    char caractere = JOptionPane.showInputDialog("Informe um caractere:").charAt(0);
    
    // vamos testar se o caractere informado é um dígito
    if(Character.getType(caractere) == Character.DECIMAL_DIGIT_NUMBER){
      JOptionPane.showMessageDialog(null, "O caractere informado é um dígito");
    }
    else{
      JOptionPane.showMessageDialog(null, "O caractere informado não é um dígito"); 
    }
  }
}

import javax.swing.JOptionPane;

public class Main {
  public static void main(String[] args) {
    // vamos pedir ao usuário para informar uma string
    String str = JOptionPane.showInputDialog("Informe uma string:");
    
    // vamos verificar se a string contém apenas dígitos de 0 a 9
    boolean soDigitos = true;
    
    // percorre todos os caracteres da string
    for(int i = 0; i < str.length(); i++){
      if(!Character.isDigit(str.charAt(i))){
    	  soDigitos = false;
    	  break;
      }
    }
    
    if(soDigitos){
      JOptionPane.showMessageDialog(null, "A string contém apenas dígitos");
    }
    else{
      JOptionPane.showMessageDialog(null, "A string não contém somente dígitos"); 
    }
  }
}

<?php
  // uma frase contendo letras minúsculas
  $frase = "PHP? Eu gosto de PHP";
  echo "A frase é: " . $frase . "\n";
  
  // agora vamos transformá-la em letras
  // maiúsculas
  $frase = strtoupper($frase);
  echo "A frase em letras maiúsculas é: " . $frase;
?>

<?php
  // uma frase contendo letras minúsculas
  $frase = "Java? Não gosto muito de Java não";
  echo "A frase é: " . $frase . "\n";
  
  // agora vamos transformá-la em letras
  // maiúsculas
  $frase1 = strtoupper($frase);
  echo "Usando strtoupper(): " . $frase1;
  $frase2 = mb_strtoupper($frase, 'UTF-8');
  echo "\nUsando mb_strtoupper(): " . $frase2;
?>

# método principal
def main():
  # vamos pedir para o usuário informar o preço de um produto
  # note que o preço será lido como uma string
  preco = input("Informe o valor do produto: ")

  # vamos exibir o valor lido e o tipo da variável
  print("Você informou o valor: {0}".format(preco))
  print("O tipo da variável é: {0}".format(type(preco)))

  # agora vamos converter a string para o tipo float
  preco = float(preco)
  
  # vamos mostrar o novo tipo da variável
  print("O novo tipo da variável é: {0}".format(type(preco)))

if __name__== "__main__":
  main()