С клавиатуры вводятся граммы .Найти полное количество граммов и килограммов — Pascal(Паскаль)

var a,b,c:integer;
begin
clrscr;
writeln ('a=');
readln (a);
b:=a div 1000;
c:=a mod 1000;
writeln ('OTBET:',b,'kg.',c,'gramm');
readln;
end.