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.