input.txt

{ Sample program in TINY language – computes factorial     }      read x;   {input an integer }      if  0 < x   then     {  don’t compute if x <= 0 }         fact  := 1;         repeat             fact  := fact *  x;             x  := x  -  1         until  x  =  0;         write  fact   {  output  factorial of x }      end