Ввести пятизначное число (граммы – например,45381). Распечатать в виде ___кг __г (45 кг 381 г) Здесь цикл не нужен. ПАСКАЛЬ

var a:longint;

begin

readln(a);

writeln(a div 1000,' kg ',a mod 1000,' gr');

end.