Informe um número inteiro: 16
O número informado foi: 16
O antecessor é 15
O sucessor é: 17

Imports System

Module Program
  Sub Main(args As String())
    ' vamos pedir ao usuário que informe um número inteiro
    Console.Write("Informe um número inteiro: ")
    Dim numero As Integer = Integer.Parse(Console.ReadLine())

    ' vamos calcular o sucessor do número informado
    Dim sucessor As Integer = numero + 1

    ' vamos calcular o antecessor do número informado
    Dim antecessor As Integer = numero - 1

    ' e agora mostramos os resultados
    Console.WriteLine("O número informado foi: {0}", numero)
    Console.WriteLine("O antecessor é {0}", antecessor)
    Console.WriteLine("O sucessor é: {0}", sucessor)

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

<script type="text/javascript">
  function obterSoma(valor, indice, vetor){
    if(valor >= 20){
      soma = soma + valor;
    }
  }  

  var valores = new Array(21, 5, 30, 7, 12, 3);
  // vamos obter a soma dos valores maiores ou iguais a 20
  var soma = 0;
  // percorremos os elementos do vetor individualmente
  valores.forEach(obterSoma);  
  window.alert("A soma é: " + soma);
</script>

<script type="text/javascript">
  function obterSoma(valor, indice, vetor){
    if(indice == 0){
      soma = soma + valor;
    }
    else{
      if(valor > vetor[indice - 1]){
        soma = soma + valor;  
      } 
    }
  }  

  var valores = new Array(8, 5, 30, 7, 12, 3);
  // vamos dos elementos cujos valores sejam   
  // maiores que seu antecessor (com exceção do
  // primeiro elemento)
  var soma = 0;
  // percorremos os elementos do vetor individualmente
  valores.forEach(obterSoma);  
  window.alert("A soma é: " + soma);
</script>

"""
  Este exemplo mostra como adicionar itens ao
  fim de uma lista de inteiros.
"""
def main():
  # cria uma lista vazia
  valores = []

  # início do laço for
  for i in range(1, 6):
    valor = int(input("Informe um inteiro: "))

    # insere o valor no final da lista
    valores.append(valor)

  # exibe os valores da lista
  print("Valores na lista:", valores, "\n")
    
if __name__== "__main__":
  main()

string fgetc(resource $handle)

string fgets(resource $handle [, int $length])

string fread(resource $handle, int $length)

<script type="text/javascript">
<!--
  function adicionarConteudo(){
    var texto = "Mais uma linha.<br>";
    $("#parag").prependTo("#div_1");
  }
//-->
</script>