Дано целое число, большее 999. Используя одну операцию деления нацело и одну операцию взятия остатка от деления, найти цифру, соответствующую разряду тысяч в записи этого числа

Program Integer18;
var x,a:integer;
begin
repeat
writeln('Enter please number:');
readln(x);
until (x>999);
a:=x div 1000;
writeln('Число сотен=',a)
end.{Solution by  15.07.2011}

автор: Zakirov Nail a.k.a ZevsNet