# método principal
def main():
  # preço anterior do produto
  precoAnterior = float(input("Informe o preço anterior: "))
  # preço atual do produto
  precoAtual = float(input("Informe o preço atual: "))
  
  # efetua o cálculo
  a = precoAnterior
  b = 100 * precoAtual
  c = b / a
  d = c - 100
  
  # mostra o resultado
  print("A porcentagem de aumento foi: %f%%" % d)
 
if __name__== "__main__":
  main()

procedure TForm1.Button1Click(Sender: TObject);
var
  nome: string;
  letra: Char;
begin
  nome := 'Osmar J. Silva';

  // vamos obter a primeira letra
  letra := nome[1];

  // vamos exibir o resultado
  ShowMessage('A primeira letra é: ' + letra);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  nome: string;
  letra: Char;
  i: integer;
begin
  nome := 'Osmar';

  for i := 1 to Length(nome) do
    begin
      letra := nome[i];
      ShowMessage('O ' + IntToStr(i) + 'º caractere é: '
        + letra);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  nome: string;
begin
  nome := 'Osmar';

  // vamos alterar o terceiro caractere
  nome[3] := 'K';
  
  ShowMessage(nome);
end;

"""
  Este exemplo mostra como adicionar os elementos
  de uma lista ao final de outra
"""

def main():
  # cria uma lista de inteiros
  valores1 = [2, 5, 12, 2, 3]
  print(valores1)

  # cria uma lista de pontos-flutuantes 
  valores2 = [4.3, 6.43, 8.1]
  print(valores2)

  # insere a segunda lista no final da primeira
  valores1.extend(valores2)

  # exibe o resultado final
  print(valores1)

if __name__== "__main__":
  main()

java.lang.Object
  java.util.Calendar

import java.util.*;

public class Estudos{ 
  public static void main(String args[]){ 
    Calendar agora = Calendar.getInstance();
    System.out.println(agora.toString());
  } 
}

java.util.GregorianCalendar[time=1228937781807,
areFieldsSet=true,areAllFieldsSet
=true,lenient=true,zone=sun.util.calendar.ZoneInfo
[id="America/Sao_Paulo",offset
=-10800000,dstSavings=3600000,useDaylight=true,
transitions=129,lastRule=java.uti
l.SimpleTimeZone[id=America/Sao_Paulo,offset=
-10800000,dstSavings=3600000,useDay
light=true,startYear=0,startMode=3,startMonth=9,
startDay=15,startDayOfWeek=1,sta
rtTime=0,startTimeMode=0,endMode=3,endMonth=1,
endDay=15,endDayOfWeek=1,endTime=0
,endTimeMode=0]],firstDayOfWeek=2,
minimalDaysInFirstWeek=1,ERA=1,YEAR=2008,MONTH
=11,WEEK_OF_YEAR=50,WEEK_OF_MONTH=2,DAY_OF_MONTH=
10,DAY_OF_YEAR=345,DAY_OF_WEEK=
4,DAY_OF_WEEK_IN_MONTH=2,AM_PM=1,HOUR=5,HOUR_OF_DAY
=17,MINUTE=36,SECOND=21,MILLI
SECOND=807,ZONE_OFFSET=-10800000,DST_OFFSET=3600000]