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

Var l:integer;
l1:real;
lm:integer;
begin
write('Введите расстояние в сантиметрах ');
read(l);
l1:=l/100;
lm:=trunc(l1);//округляет значение до близжайшего вычитая из него -0.5
writeln(lm,' метров');
end.