home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / imiu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  163 b   |  14 lines
  1. unit IMiU;
  2.  
  3. interface
  4. function IMin(X,Y: integer): integer;
  5.  
  6. implementation
  7.  
  8. function IMin;
  9. begin
  10. if X > Y then IMin := Y else IMin := X;
  11. end;
  12.  
  13. end.
  14.