Дано расстояние l в сантиметре,используя операцию деления на цело найти количество полных метров в нём

Program FORSLENDER;
uses crt;

var l,a: integer;

begin clrscr;

      write('l = ');
      readln(l);
      a:=(l div 100 );
      writeln('Otvet = ', a);

      readln;
end.