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.