procedure TForm2.Button1Click(Sender: TObject);
var
  a, b, c: Real;
begin
  c := 36.056; // medida da hipotenusa
  a := 20; // medida do cateto oposto

  // agora vamos calcular a medida da cateto adjascente
  b := sqrt(sqr(c) - sqr(a));

  // e mostramos o resultado
  Edit1.Text := 'A medida do cateto adjascente é: ' +
    FloatToStr(b);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ano, dias_ano: Integer;
begin
  ano := 2010;

  // vamos obter a quantidade de dias para o
  // ano de 2010
  dias_ano := DaysInAYear(ano);

  // exibe o resultado
  ShowMessage('O ano informado contém ' + IntToStr(dias_ano) +
    ' dias');
end;

public static void main(String[] args){
  // laço for que conta de 10 até e exibe os valores na horizontal
  for(int i = 10; i >= 0; i--){
    System.out.print(i + "  ");
  }
}

10  9  8  7  6  5  4  3  2  1  0

public static void main(String[] args){
  // laço for que conta de 10 até 0 e exibe os valores na vertical
  for(int i = 10; i >= 0; i--){
    System.out.println(i + "  ");
  }
}

10  
9  
8  
7  
6  
5  
4  
3  
2  
1  
0

# função principal do programa
def main():
  # vamos pedir para o usuário informar um número
  numero = int(input("Informe um número: "))
 
  # o número é par?
  if numero % 2 == 0:
    print("O numero informado é par")
  else:
    print("O numero informado é impar")

if __name__== "__main__":
  main()