Срочно! напишите программу на языке Паскаль (приложение АВС Pascal)

Дано расстояние L в сантиметрах . Используя операцию деления нацело, найти количество полных метров в нем ( 1 метр = 100 см ) . исходные данные: L ( сантиметров ) : 1026 пример верного решения: L ( полных метров ) : 10
Заранее ОГРОМНОЕ спасибо)

var l:integer;beginwrite ('Введите расстояние L в сантиметрах: ');readln (l);writeln('Количество полных метров в нем: ',l div 100)end.