program ProgramName;
var
number, kg, g: integer;
begin
write${}^{\prime }Введитепятизначноечисло{:}^{\prime }$;
readln$number$;

kg := number div 1000;
g := number mod 1000;

writeln${}^{\prime }Результат{:}^{\prime },kg{,}^{\prime }к{г}^{\prime },g{,}^{\prime }{г}^{\prime }$;
end.