// uma função recursiva para elevar uma determinada
// base ao seu expoente
function potencia(base, expoente: Integer): Integer;
begin
  if expoente = 0 then
    Result := 1
  else
    Result := base * potencia(base, expoente - 1);
end;

// vamos chamar a função recursiva
// a partir do Click de um botão
procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos obter o resultado de 4 elevado a 3
  ShowMessage('4 ao cubo é igual a: ' +
    IntToStr(potencia(4, 3)));
end;

using System;
using System.Collections;

namespace Estudos {
  class Principal {
    static void Main(string[] args) {
      // Cria o ArrayList
      ArrayList lista = new ArrayList();

      // Adiciona 5 inteiros
      lista.Add(30);
      lista.Add(2);
      lista.Add(98);
      lista.Add(1);
      lista.Add(7);

      // Percorre os elementos da ArrayList
      Console.WriteLine("Os elementos no ArrayList são:\n");
      foreach (int valor in lista) {
        Console.Write("{0} ", valor);
      }

      Console.WriteLine("\nPressione uma tecla para sair...");
      Console.ReadKey();
    }
  }
}

A versão da NumPy é: 1.19.4

# vamos importar a biblioteca NumPy
import numpy as np

# função principal do programa
def main():
  # vamos mostrar a versão da biblioteca NumPy qye temos instalada
  versao = np.__version__

  # mostramos o resultado
  print("A versão da NumPy é: {0}".format(versao))
  
if __name__== "__main__":
  main()

Imports System

Module Program
  Sub Main(args As String())
    Dim frase As String = "Gosto muito de VB.NET e você?"
    Dim letra As Char = "o"
    Dim quant As Integer = 0
    Dim pos As Integer = -1, pos_ant As Integer = -1
    Dim cont As Integer = 0

    ' mostra a frase
    Console.WriteLine("A frase é: " & frase)

    While cont < frase.Length
      pos = frase.IndexOf(letra, cont)
      If pos <> pos_ant And pos <> -1 Then
        Console.WriteLine("""" & letra &
          """ encontrada na posição " & pos)
        quant += 1
      End If
      cont += 1
      pos_ant = pos
    End While

    ' mostra a quantidade de ocorrências da letra "o"
    Console.WriteLine("Encontrei " & quant & " ocorrências da " _
       & "letra " & letra)

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

; programa LISP que converte Coordenadas Polares
; em Coordenadas Cartesianas
(let((raio)(theta)(graus)(x)(y))
  ; vamos ler o raio e o ângulo
  (princ "Informe o raio: ")
  (force-output)
  (setq raio (read))
  (princ "Informe o theta: ")
  (force-output)
  (setq theta (read))
  (princ "Theta em graus (1) ou radianos (2): ")
  (force-output)
  (setq graus (read))
  
  ; o theta está em graus?
  (if(eq graus 1)
    (setq theta (* theta (/ pi 180.0)))    
  )
  
  ; fazemos a conversão para coordenadas cartesianas 
  (setq x (* raio (cos theta)))
  (setq y (* raio (sin theta)))
  
  ; exibimos o resultado
  (format t "As Coordenadas Cartesianas são: (x = ~F, y = ~F)"
    x y)
)