LP - procedure com um parametro - Pascal

Program Pzim ;
Var x:integer;

Procedure parametro(a:integer);
Begin
  a:=a+a;
  writeln('Este valor x2 é.....: ',a);
End;


Begin
    write ('Digite o valor de um valor inteiro..:');
    read(x);
    parametro(x);
End.