По информатике 7 класс, составьте программу в Паскале, заранее спасибо ​

var a : integer;

write('введите длину в метрах - ');

readln(a)

write('длину в метрах - ', a)

write'(длина в километрах - ', a /1000)