home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / win / fr / micropas / proc.p < prev    next >
Text File  |  1994-11-08  |  351b  |  31 lines
  1. program DemoProc;
  2.  
  3.  
  4. type pi = ^integer;
  5.      t = array[1..5] of integer;
  6.  
  7.  
  8. var x, y : integer;
  9.     z : t;
  10.  
  11.  
  12.  
  13. procedure Bidon(var n : integer; var x : integer);
  14. var m : integer;
  15.  
  16. begin
  17.     m := n + x;
  18.     y := m * n;
  19. end;
  20.  
  21.  
  22. begin
  23.     z[3] := 40;
  24.     z[5] := 20;
  25.     
  26.     x := 20;
  27.     y := 30;
  28.     
  29.     Bidon(z[3],x);
  30. end.
  31.