давайте выделим целую часть оператором Div (a div 100000)
и остаток от получившегося числа оператором mod (a mod 1000)
-----------------
Код:
var a: Longint;
begin
Readln(a);
a:=a div 100000;
a:=a mod 1000;
writeln(a);
end.
------------------