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

Program Integer9;

var
  a, r: integer;

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

end.