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

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