Algorithme double
      var x: entier
  debut
      ecrire("أدخل عددا: ")
      lire(x)
      ecrire(" ضعفه هو ", x*2)
  fin