value := 5;
	ax := 1;
	counter := 1;

        while not(counter = (value+1))
        begin
  	  ax := ax*counter;
	  counter := counter + 1;
        end;

	print "\nThe factorial of ";
	print value;  print " is ";
  	print ax;
	print " \n";