Используя одну операцию деления нацело, вывести первую цифру данного числа (сотни)

Дано трехзначное число.

Program Integer9;
var a,r:integer;
begin
Writeln('Введите число a');
readln(a);
r:=a div 100;
Writeln ('число cотен=',r);
end.

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