uses crt;
vara, b, c: integer;st : string;beginreadln (a);str (a, st);if length (st)<=3 then writeln (0 ,' ton') else begin b:=a div 1000;writeln (b, ' ton'); end;readkey ;end.
uses crt;
var
a, b, c: integer;
st : string;
begin
readln (a);
str (a, st);
if length (st)<=3 then writeln (0 ,' ton') else begin b:=a div 1000;
writeln (b, ' ton'); end;
readkey ;
end.