PROGRAM TP4exc1 ;

VAR a,b , resultat : real ;
    operateur, choix : char ;

BEGIN
repeat
  write('réel a ?') ; readln(a) ;
  write('opérateur arithmétique (+ - * /) ? ') ; readln(operateur) ;
  write('reel b ? ') ; readln(b) ;
  case operateur of
       '+' : begin
             resultat:=a+b ;
             writeln('a+b=',resultat) ;
             end ;
       '-' : begin
             resultat:=a-b ;
             writeln('a-b=',resultat) ;
             end ;
       '*' : begin
             resultat:=a*b ;
             writeln('a*b=',resultat) ;
             end ;
       '/' : if b<>0
                then begin
                     resultat:=a/b ;
                     writeln('a/b=',resultat) ;
                     end
                else writeln('division par zéro impossible')
       else writeln('erreur d''opérateur') ;
       end ; (* du case *)
  write('Continuer (o/n) ? ') ; readln(choix) ;
  until upcase(choix)='N' ;
(* upcase transforme un caractère minuscule en majuscule *)
END.

(********************)