m:integer;
begin
readln(n,m);
if m=1 then writeln(n,'t=',n*1000:0:1,'kg')
else writeln('n','t=',n*1000000:0:1,'g');
end.
完全可以使用。