home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / COMAL3-1.DMS / in.adf / Tutorial / Prg10.1 next >
Encoding:
Text File  |  1993-04-09  |  84 b   |  12 lines
  1. // Program 8.1
  2.  
  3. n:=6
  4.  
  5. fak:=1
  6. WHILE n>0 DO
  7.   fak:=fak*n
  8.   n:=n-1
  9. ENDWHILE
  10.  
  11. PRINT fak
  12.