program calculadora;
        var
           number1, number2, resultado : real;
           funciones: char;


begin
     Writeln('Este programa es una calculadora');
     Writeln('Inserte el primer numero : '); readln(number1);
     Writeln('Inserte el segundo numero : '); readln(number2);
     Write('Que desea hacer con estos numeros? : sumar(+) , multiplicar(*) , dividir(/) , restar(-)    ');
     Readln(funciones);
     case (funciones) of
     '+' : resultado:=number1+number2;
     '-' : resultado:= number1-number2;
     '/' : resultado:= number1/number2;
     '*' : resultado:= number1*number2;
     else Writeln('No se puede realizar esta operacion');
     end;

     Writeln('El resultado es: ' , resultado) ;

     readln

end.