Дано расстояние L в сантиметрах. Используя операцию деления нацело, найти количество полных метров в нем (1 метр = 100 см)

Program Integer1;
var M,Sm:integer;
begin
readln(Sm);
M:=Sm div 100;
writeln('B ',Sm,'cm= ',M,'Cm.');
end.}

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