Дана масса в килограммах. Найти число полных центнеров в ней. - Turbo Pascal

помогите пожа... как это сделать??? Дана масса в килограммах. Найти число полных центнеров в ней.

Листинг программы

writeln('Введите массу в килограммах');
readln(m);
m:=m div 10;
writeln(m,' полных центнеров');

Объяснение кода листинга программы

В строке кода writeln('Введите массу в килограммах') выводится сообщение с предложением ввести значение массы в килограммах.
В строке кода readln(m) считывается значение массы, введенное пользователем, и сохраняется в переменной m.
В строке кода m:=m div 10 значение массы m делится на 10, что позволяет перевести килограммы в центнеры.
В строке кода writeln(m,' полных центнеров') выводится значение массы, уже переведенной в центнеры, с добавлением фразы полных центнеров.