Пожалуйста посчитайте составить программу в паскале! Дао расстояние в см. Найти полных м в нем.

var i,j:integer;
begin
writeln('Введите расстояние(в сантиметрах)');
readln(i);
j:=i div 100;
writeln('Полных метров = ', j);
end.