Algoritmo que leia 2 valores e escolha o tipo da operação

Receber 2 valores e escolher que tipo de operação será feita entre soma, subtração, divisão e multiplicação

Operação:

Soma ( + )
Subtração ( – )
Divisão ( / )
Multiplicação ( x )

Pseudocódigo:

programa exercicio10
var
   valor1, valor2, operacao, resultado : real;
inicio
   leia valor1;
   leia valor2;
   leia operacao;
   se (operacao = "+") entao
       resultado ← (valor1 + valor2)
   senao
     se (operacao = "-") entao
	     resultado ← (valor1 - valor2)
     senao
        se (operacao = "/") entao
	       resultado ← (valor1 / valor2)
        senao
	      se (operacao = "x") entao
	          resultado ← (valor1 * valor2);
	      fim_se;
        fim_se;	
     fim_se;
   fim_se;
 escreva resultado;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 08/04/2010
Program exercicio10;
 uses crt;
 var
 valor1, valor2, resultado : real;
 operacao : char;
 Begin
 writeln('Insira Valor 1');
 readln(valor1);
 writeln('Insira Valor 2');
 readln(valor2);
 writeln('Insira a Operação: ( + ) , ( - ), ( / ) , ( x ) ');
 readln(operacao);  
 	if (operacao = '+') then
 	  resultado := (valor1 + valor2)
 	  else
 	  	if (operacao = '-') then
 	  	resultado := (valor1 - valor2)
 	  	   else
 	  		if (operacao = '/') then
 	  		   resultado := (valor1 / valor2)
 	  			else
 	  			   if (operacao = 'x') then
 	  				resultado := (valor1 * valor2);
 		writeln(valor1:0:0, operacao, valor2:0:0, ' = ', resultado:0:0);
 writeln('Pressione para fechar');
 readkey;  
End.