Длина отрезка задана в дюймах(1"=2.54 см). Перевести значение длинны в метрическую систеу,т е выразить в метрах см и мм - Turbo Pascal

var
  n, x : real;
begin
  write('введите расстояние в дюймах: ');
  readln(n);
  x := n * 2.54; {это мы получили в см}
  writeln('расстояние: ', trunc(x), ' см, ', frac(x)*10:0:1, ' мм');
  writeln(x);
  readln
end.