использование условного оператора в теле оператора цикла с условием

[машко]

Дано натуральное число n(>99). Определить его третью сначала цифру.(с использованием одного оператора цикла.)

[__STDC__]

var
	n,k:int64;
begin
	readln(n); k := 10;
	while (n div k > 99) do
		n := n div k;
	writeln(n mod k);
	readln;
end.

[машко]

спасибки большое