TP3/shell/tests/fixtures/t31_procparam.pas

program t31;
var
  x : integer ;
procedure show (a : integer) ;
begin
  x := a
end ;
begin
  show (3) ;
  writeln (x)
end.