TP3/shell/tests/fixtures/t13_proc.pas

program t13;
var
  x : integer ;
procedure show (a : integer) ;
begin
  x := a
end ;
procedure add (a : integer, b : integer) ;
begin
  x := x + a + b
end ;
begin
  show (3) ;
  writeln (x) ;
  add (4, 5) ;
  writeln (x)
end.