home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / T_LESSON.ZIP / PROG11.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-04-21  |  321 b   |  23 lines
  1. PROGRAM PROG11;
  2. {       Copyright (C), 1989 by Lyle Faurot.  All rights reserved.
  3.  
  4.     New Topics: FUNCTION declaration
  5.                 User defined function
  6.  
  7. }
  8.  
  9. VAR
  10.   No : Integer;
  11.  
  12. FUNCTION GiveMe5 : Integer;
  13.  
  14. BEGIN
  15.    GiveMe5 := 5;
  16. END;
  17.  
  18.  
  19. BEGIN   {PROG11}
  20.    WriteLn(GiveMe5);
  21. END.    {PROG11}
  22.  
  23.