prim_6.PAS

{* Из сантиметров в метры *}

Unit PRIM_6;
Interface
Implementation
Begin
 writeln('Дано расстояние в сантиметрах. Найти число полных метров в нем. ');
End.

Program prim_6;

Uses prim_6.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  a : integer;
  b : integer;
Begin
  Write('введите расстояние в сантиметрах');
  Readln(a);
  b := a Div 100;
  Writeln(b, ' метров ');
  Readln
End.