procedure TForm1.Button1Click(Sender: TObject);
var
  diretorio_atual: string;
begin
  // vamos obter o diretório atual e atribuí-lo
  // na variável diretorio_atual
  GetDir(0, diretorio_atual);

  // vamos exibir o resultado
  ShowMessage('O drive e diretório atual são: ' +
    diretorio_atual);
end;

a <- 20 # medida do cateto oposto
b <- 30 # medida do cateto adjascente
  
# agora vamos calcular o comprimento da hipotenusa
c <- sqrt(a ^ 2 + b ^ 2)
 
# e mostramos o resultado
paste("O comprimento da hipotenusa é:", c)

> x <- 10 [ENTER]
> class(x) [ENTER]
[1] "numeric"
> x <- "Java" [ENTER]
> class(x) [ENTER]
[1] "character"
> x <- TRUE [ENTER]
> class(x) [ENTER]
[1] "logical"
> x <- 5L [ENTER]
> class(x) [ENTER]
[1] "integer"
> 

Informe o valor da hora aula: 28
Informe o número de horas trabalhadas no mês: 12
Informe o percentual de desconto do INSS: 8
Salário Bruto: R$ 336,00
Total de Descontos: R$ 26,88
Salário Líquido: R$ 309,12

<?php
  // para executar abra uma janela de comando
  // cmd e dispare o comando abaixo:
  // C:\xampp\php>php c:\estudos_php\estudos.php
   
  // para ler a entrada do usuário
  $entrada = fopen("php://stdin","r");
  
  // vamos ler o valor do hora aula
  echo "Informe o valor da hora aula: ";
  $valor_hora_aula = trim(fgets($entrada));
    
  // vamos ler o número de horas trabalhadas no mês
  echo "Informe o número de horas trabalhadas no mês: ";
  $horas_trabalhadas = trim(fgets($entrada));
    
  // vamos ler o percentual de desconto do INSS
  echo "Informe o percentual de desconto do INSS: ";
  $percentual_desconto_INSS = trim(fgets($entrada));
    
  // vamos calcular o salário bruto
  $salario_bruto = $valor_hora_aula * $horas_trabalhadas;
    
  // agora calculamos o total do desconto
  $total_desconto = ($percentual_desconto_INSS / 100) * 
    $salario_bruto;
    
  // finalmente calculamos o salário líquido
  $salario_liquido = $salario_bruto - $total_desconto;
    
  // mostramos o resultado
  echo "Salário Bruto: R$ " . 
    number_format($salario_bruto, 2, ',', '.');
  echo "\nTotal de Descontos: R$ " . 
    number_format($total_desconto, 2, ',', '.');
  echo "\nSalário Líquido: R$ " . 
    number_format($salario_liquido, 2, ',', '.');
?>