Паскаль! ! дано целое число, больше 99. найти третью от конца его цифру.

//чем дальше, тем унылее задания.
var n:integer;
begin;
readln(n);
n:=n div 10;
n:=n div 10;
n:=n mod 10;
writeln(n);
end.