Program z_2_19;
Uses crt;
const f=1000;
var m,s,i:integer;
BEGIN
clrscr;
writeln('vvedite chislo v kg');
readln(m);
s:= m div f;
writeln('otvet s=', s);
readln;
END.