{* Из дюймов в метры *}

Unit Z_INCH_METER;
Interface
Implementation
Begin
 writeln('Из дюймов в метры');
End.

Program z_Inch_Meter;

Uses z_Inch_Meter.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  Inch       : real;
  Meter      : real;
  Centimetr  : real;
  Millimeter : real;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Введите длину в дюймах');
  readln(Inch);
  Meter := trunc(Inch * 2.54 / 100);
  Centimetr := trunc(Inch * 2.54 - Meter * 100);
  Millimeter := (Inch * 2.54 - Meter * 100 - Centimetr) * 10;
  write(Meter : 0 : 0, ' м ', Centimetr : 0 : 0, ' см ', Millimeter : 0 : 1, ' мм');
  readln; {* Ждем нажатия Enter *}
End.