exam.tny

这是一个小型语言tiny的编译器

{Sample program
compute factorial
}
 read x;
 if  0<x  then 
    fact:=1;
    repeat
         fact:=fact*x;
          x:=x-1
   until  x=0;
write fact
end