Procédures avec paramètres variables

program P;
  
   var e : integer;
       r : real;

   procedure lecture(var n : integer; var x : real);
      begin
        writeln('entrez un entier');
        readln(n);
        writeln('entrez un reel');
        readln(x);
      end;

  begin
   lecture(e, r); 
   r:=r*e;
   writeln(r);
  end.

Lors de l'appel à la procédure lecture, le paramètre effectif e et le paramètre formel n correspondent à la même variable.