# função principal do programa
def main():
  # vamos pedir para o usuário informar a medida em pés
  pes = float(input("Informe a medida em pés: "))

  # agora vamos converter a medida em pé para metros
  metros = 0.3048 * pes

  # e mostramos o resultado
  print("A medida em metros é: {0}m".format(metros))
  
if __name__== "__main__":
  main()

LRESULT SendMessage(          
  HWND hWnd,
  UINT Msg,
  WPARAM wParam,
  LPARAM lParam
);

void __fastcall TForm3::Button2Click(TObject *Sender)
{
  // vamos obter o tamanho do texto de um TEdit usando a função
  // SendMessage() e a mensagem WM_GETTEXTLENGTH
  int tam = SendMessage(Edit1->Handle, WM_GETTEXTLENGTH, 0, 0);

  // vamos mostrar o resultado
  ShowMessage("O Edit contém " + IntToStr(tam) + " caracteres.");
}

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;

<?
  // vamos usar a função min() para obter o menor
  // entre três valores inteiros
  $menor = min(5, 12, 4);

  // vamos exibir o resultado
  echo "O menor valor é: " . $menor;
?>

<?
  // vamos usar a função min() para obter o elemento
  // com menor valor em uma matriz
  
  
  // vamos criar uma matriz com cinco elementos
  $valores = array(9, 3, 21, 49, 2);  

  // vamos obter o menor elemento
  $menor = min($valores);

  // vamos exibir o resultado
  echo "O menor valor é: " . $menor;
?>

O menor valor é: 2

<?php
  // uma frase contendo espaços no início e
  // no final
  $frase = "   PHP? Eu gosto de PHP.    ";
  
  // vamos remover os espaços no início e no fim
  $frase = trim($frase);
  
  // e mostramos o resultado
  echo "A frase é: " . $frase;
?>