perevcent.PAS

{* Из килограмм в центнеры *}

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

Program prim_6;

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