home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / Comal / Tutorial / Prg10.1 next >
Encoding:
Text File  |  2001-04-11  |  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.