program xxx;
uses crt;
const b=100;
var a:real;
      c:integer;
BEGIN
clrscr;
writeln('Введите растояние в сантиметрах a=');
readln(a);
c:=trunc(a/b);
writeln('c=',c);
readln;
END.