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

Program Integer17;
var x,a:integer;
begin
repeat
writeln('Enter please number:');
readln(x);
until (x>999);
a:=(x div 100) mod 10;
writeln('Число сотен=',a)
end.

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