Program Calculette; Var a, b : Real; op : Char; Begin Readln (a) ; Readln (op) ; Readln (b) ; Case op of '+' : Writeln (a:3:2,' ',op,' ',b:3:2,' = ',a+b:3:2 ) ; '-' : Writeln (a:3:2,' ',op,' ',b:3:2,' = ',a-b:3:2) ; '*' : Writeln (a:3:2,' ',op,' ',b:3:2,' = ',a*b:3:2) ; '/' : IF b = 0 Then Writeln ('impossible') Else Writeln (a:3:2,' ',op,' ',b:3:2,' = ',a/b:3:2); Else Writeln ('Opérateur incorrect'); End; End.