Simuler une calculatrice

program calculette ;

    var a, b : real ;

    resultat : real;

    touche : char;

begin

    write('entrez une opération ');

    write('(taper un nombre, un opérateur puis un nombre):');

    readln(A,touche,B);

    case touche of

        '+' : resultat:= a+b;

        '-' : resultat:= a-b;

        '*' : resultat:= a*b;

        '/' : resultat:= a/b;

    end;

    writeln(a,touche,b,' = ',resultat);

end.