Вася написал программку, которая переводит длину из метров в километры и

Вася написал программку, которая переводит длину из метров в километры и метры. Но он не может решить, где необходимо использовать div, а где mod. Помогите ему Откройте файл и исправьте программку,
var d, m, k: integer;
begin
write(введите d = );
readln(d);
k:= d ... 1000;
rn: = d .,. 1000;
write(d, м = );
write (k, км , m, м ) ;
end