Informe o primeiro valor: 3
Informe o segundo valor: 7
3 vezes 7 é 21

; Vamos definir as variáveis que vamos
; usar no programa
(defvar n1)
(defvar n2)
(defvar produto)

; Este o programa principal
(defun Multiplicacao()
  ; Vamos ler o primeiro valor
  (princ "Informe o primeiro valor: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  (setq n1 (read))
  ; Vamos ler o segundo valor
  (princ "Informe o segundo valor: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  (setq n2 (read))
  
  ; Agora vamos efetuar a multiplicação dos
  ; dois valores informados
  (setq produto (* n1 n2))
  
  ; E mostramos o resultado
  (format t "~D vezes ~D é ~D" n1 n2
    produto)
)

; Auto-executa a função Multiplicacao()
(Multiplicacao)

procedure TForm2.Button1Click(Sender: TObject);
var
  a, b, maior: Integer;
begin
  // uses Math

  a := 34;
  b := 17;
  maior := Max(a, b);

  // exibe o resultado
  ShowMessage('O maior valor é: ' + IntToStr(maior));
end;

O primeiro elemento do array é: 9 

#include <stdio.h>
#include <stdlib.h>

// função principal do programa
int main(int argc, char *argv[]){
  // vamos criar um array de inteiros
  int valores[] = {9, 5, 3, 2, 4, 8};
    
  // agora vamos retornar o primeiro elemento do vetor
  int primeiro = valores[0];
    
  // e mostramos o resultado
  printf("O primeiro elemento do array é: %d", primeiro);
  
  printf("\n\n");
  system("PAUSE");
  return 0;
}

procedure TForm1.Button1Click(Sender: TObject);
var
  diretorio: string;
begin
  // diretório que queremos verificar a existência
  diretorio := 'C:\arquivo de codigos';

  // vamos verificar se o diretório existe
  if DirectoryExists(diretorio) then
    ShowMessage('O diretório existe')
  else
    ShowMessage('O diretório NÃO existe');
end;

Informe um número binário: 1100
A representação decimal do valor binário 1100 é 12

# vamos importar o módulo Math
import math

# função principal do programa
def main():
  # vamos ler o número binário (como uma String)
  binario = input("Informe um número binário: ")
  decimal = 0 # guarda a representação decimal
     
  # vamos percorrer todos os dígitos do número binário começando do início
  expoente = len(binario) - 1
  for i in range(0, len(binario)):
    # converte o caractere atual para inteiro
    temp = int(binario[i])
    decimal = decimal + (temp * int(math.pow(2, expoente)))
    # reduz o expoente
    expoente = expoente - 1

  # mostramos o resultado
  print("A representação decimal do valor binário {0} é {1}".format( 
    binario, decimal))
  
if __name__== "__main__":
  main()