Перевод сантиметров в километры - PascalABC.NET

Формулировка задачи:

Нужно из вывести результат 3 км 765 м 22 см. Не получается высчитать z (см). Пожалуйста помогите!

                    Листинг программы
                
 
                        
                          
                    
var n,duim,x,y,z:real;
begin
 
write('n=');
readln(n);
duim:=30.5*n/10000;
x:=trunc(duim);
y:=trunc((duim-x)*1000);
z:=(duim-x-y/100)*1000;
write(x:2:0,' Km ',y:2:0,' M ',z:2:1,' cm');
readln;
end.

Решение задачи: «Перевод сантиметров в километры»

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

begin
  var Distance := ReadLnReal('Введите расстояние в футах =');
  Distance *= 30.48; // 1 фут = 30.48 см (статья „Единицы измерения расстояния“ в Википедии)
  var cm := Trunc(Distance);
  WriteLnFormat('{0} км {1} м {2} см', cm div 100000, cm div 100 mod 1000, cm mod 100);
end.

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

Вводится расстояние в футах с помощью функции ReadLnReal.
Введенное расстояние умножается на 30.48 для перевода в сантиметры.
Полученное значение округляется с помощью функции Trunc.
Выводится результат в формате км, м, см с помощью функции WriteLnFormat.