% example factorial computing test. begin read x; y:= 1; while x do begin y:= y * x; x:= x - 1; end; print y; end