// This is a comment.  It continues to the end of the line.
let
    var n: Integer;
	var c: Character
in
	begin
		n := 2;
        repeat
			if (n > 2) then
				n := 3
			elsif (n > 3) then
				n := 4
			elsif (n > 4) then
				n := (n == 4)?2:3
		until (n > 4);
		if (n > 2) then
			n := 2;
		if (n > 4) then
			n := 6
		else
			c := '\n'
	end