# função principal do programa
def main():
  # vamos ler as coordenadas do primeiro vértice
  va_x = float(input("Informe o x do primeiro vértice: "))
  va_y = float(input("Informe o y do primeiro vértice: "))

  # vamos ler as coordenadas do segundo vértice
  vb_x = float(input("Informe o x do segundo vértice: "))
  vb_y = float(input("Informe o y do segundo vértice: "))

  # vamos ler as coordenadas do terceiro vértice
  vc_x = float(input("Informe o x do terceiro vértice: "))
  vc_y = float(input("Informe o y do terceiro vértice: "))
  
  # vamos calcular as coordenadas do centroide
  c_x = (va_x + vb_x + vc_x) / 3
  c_y = (va_y + vb_y + vc_y) / 3

  # vamos mostrar o resultado
  print("As coordenadas do centroide são: x={0}; y={1}".format(
    round(c_x, 2), round(c_y, 2))) 

if __name__== "__main__":
  main()

Imports System

Module Program
  Sub Main(args As String())
    Dim site As String = "Arquivo de Códigos"

    ' obtém o tamanho da string
    Dim tam As Integer = site.Length

    Console.WriteLine("A string contém " & tam &
      " caracteres")

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

<?php
/*
  Este exemplo mostra como verificar a existência
  de um valor em um array usando in_array().
*/

$pessoas[0] = "Carlos";
$pessoas[1] = "Juliana";
$pessoas[2] = "Igor";
$pessoas[3] = "Marcelo";
$pessoas[4] = "Amélia";

if(in_array("Victor", $pessoas)){
  echo "O valor pesquisado foi encontrado no array.";
}
else{
  echo "O valor pesquisado NÃO foi encontrado no array.";
}
?>

Informe o primeiro número: 8
Informe o segundo número: 3
A soma dos dois números é: 11

import System.IO
import Text.Printf

-- declaração da função somar
somar :: Int->Int->Int

-- definição da função somar
-- recebe dois inteiros e retorna a
-- soma como um inteiro
somar a b = a + b

-- função principal do programa
main = do
  -- vamos desabilitar o buffer de quebra de linha 
  hSetBuffering stdout NoBuffering
  
  -- vamos pedir para o usuário informar dois números
  -- inteiros
  putStr "Informe o primeiro número: "
  n1 <- readLn::IO Int
  putStr "Informe o segundo número: "
  n2 <- readLn::IO Int
  
  -- agora vamos chamar a função somar e obter
  -- a soma dos dois números fornecidos
  let soma = somar n1 n2
  
  -- agora mostramos o resultado
  printf "A soma dos dois números é: %d" soma