# 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()

// um vetor de inteiros contendo sete elementos
valores = [4, 5, 1, 8, 2, 2, 10]

# método principal
def main():
  # um vetor de inteiros contendo sete elementos
  valores = [4, 5, 1, 8, 2, 2, 10]
    
  # o primeiro passo é criar uma variável que vai receber a soma
  # dos valores dos elementos
  soma = 0

  # agora vamos usar uma laço for para percorrer todos os elementos
  # do vetor, obter o valor do elemento atual e adicionar ao valor atual
  # da variável soma
  for valor in valores:
    soma = soma + valor
  
  # vamos exibir a soma dos valores do vetor
  print("A soma dos valores do vetor é: {0}".format(soma))
    
if __name__== "__main__":
  main()

// função personalizada que permite encontrar uma janela
// baseado em seu título
function FindWindowByTitle(WindowTitle: string): Hwnd;
var
  NextHandle: Hwnd;
  NextTitle: array[0..255] of char;
begin
  // vamos obter a primeira janela
  NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);

  while NextHandle > 0 do
    begin
      // vamos obter o título da janela
      GetWindowText(NextHandle, NextTitle, 256);

      // a janela contém o título que procuramos?
      if Pos(Uppercase(WindowTitle), UpperCase(String(NextTitle))) <> 0 then
         begin
           Result := NextHandle;
           Exit;
         end
      else
        // vamos tentar a próxima janela
        NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);
    end;

    // não encontramos nada? vamos retornar um handle nulo
    Result := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  handle: hwnd;
begin
  // vamos localizar e fechar a Calculadora do Windows
  // ou qualquer janela que contenha o texto "Calculadora"
  handle := FindWindowByTitle('Calculadora');
  if handle <> 0 then // encontramos a janela? vamos fechá-la
    SendMessage(handle, WM_SYSCOMMAND, SC_CLOSE, 0)
  else
    ShowMessage('A janela pesquisada não foi encontrada');
end;

<?
  $valor = 1;
   
  do{
    echo $valor . "<br>";
    $valor++;
  }while($valor <= 10);
?>