{* Число полных километров в данной длине *}

Unit Z_METER21;
Interface
Implementation
Begin
 writeln('Число полных километров в данной длине ');
End.

Program z_meter21;

Uses z_meter21.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  Meter : real;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Введите длину в метрах');
  readln(Meter);
  writeln('Число полных километров в данной длине');
  writeln(trunc(Meter / 1000));
  readln; {* Ждем нажатия Enter *}
End.