value := 5; ax := 1; counter := ax; while not(counter = (value+1 begin ax = ax*counter; counter := counter + 1; end; print "\nThe factorial of "; print value; print " is "; print ax "is"; print " \n";