var
  valores: array[1..10] of Integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  valores: array[1..10] of Integer;
begin
  valores[5] := 20;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  valores: array[1..5] of Integer;
  i, soma: Integer;
begin
  // vamos preencher o array com os valores de 1 a 5
  for i := 1 to 5 do
    begin
      valores[i] := i;
    end;

  // vamos percorrer o array novamente e obter a soma dos
  // valores de seus elementos
  soma := 0;
  for i := 1 to 5 do
    begin
      soma := soma + valores[i];
    end;

  // vamos exibir o resultado
  ShowMessage('A soma dos valores é: ' + IntToStr(soma));
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  valores: array[1..5] of Integer = (3, 2, 6, 12, 9);
var
  i, soma: Integer;
begin
  // vamos percorrer o array novamente e obter a soma dos
  // valores de seus elementos
  soma := 0;
  for i := 1 to 5 do
    begin
      soma := soma + valores[i];
    end;

  // vamos exibir o resultado
  ShowMessage('A soma dos valores é: ' + IntToStr(soma));
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  letras: array[1..5] of Char = ('O', 's', 'm', 'a', 'r');
var
  i: Integer;
  resultado: String;
begin
  resultado := '';

  // vamos exibir a palavra na forma normal
  for i := 1 to 5 do
    resultado := resultado + letras[i];

  // exibe o resultado
  ShowMessage(resultado);

  // vamos exibir a palavra invertida
  resultado := '';
  for i := 5 downto 1 do
    resultado := resultado + letras[i];

  // exibe o resultado
  ShowMessage(resultado);
end;

var
  valor: integer;
  pvalor: ^integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  valor: integer;
  pvalor: ^integer;
begin
  // atribui um valor à variável valor
  valor := 20;

  // vamos atribuir à pvalor o endereço de valor
  pvalor := @valor;

  // vamos usar o ponteiro pvalor para alterar o
  // valor de valor
  pvalor^ := 30;

  // vamos obter o novo valor da variável valor
  ShowMessage('Valor de valor: ' + IntToStr(valor));
end;

# vamos importar o objeto Date
from datetime import date
 
def main():
  # vamos criar a data inicial e a data final
  d1 = date(2022, 11, 10)
  d2 = date(2022, 12, 23)

  # vamos calcular a diferença de dias
  diferenca = numero_dias(d1, d2)

  # e mostramos o resultado
  print("A primeira data é: {0}".format(d1))
  print("A segunda data é: {0}".format(d2))
  print("A diferença de dias entre as duas datas é: {0} dias".format(
    diferenca))  

# função que recebe duas datas e retorna a diferença
# de dias entre elas
def numero_dias(data1, data2):
  return (data2 - data1).days

if __name__== "__main__":
  main()

using System;
using System.IO;

namespace Estudos {
  class Program {
    static void Main(string[] args) {
      // vamos criar uma instância da classe DirectoryInfo
      DirectoryInfo dir = new DirectoryInfo(@"C:\estudos_csharp\teste");
      try {
        // vamos chamar o método MoveTo() para renomear o diretório
        dir.MoveTo(@"C:\estudos_csharp\teste_2");
        Console.WriteLine("Diretório renomeado com sucesso.");
      }
      catch (Exception e) {
        Console.WriteLine("Não foi possível renomear o diretório: {0}", e.ToString());
      }
      finally { }

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