Присвоить целой переменной h третью от конца цифру в записи положительного числа k — Pascal(Паскаль)

например, если k=130985,
то h=9

var
k,h:integer;
begin
  k:=130985;
  h := k mod 1000 div 100;
  writeln(h);
end.