Ответ:

Program Converter;

var mm, cm, m, km: integer;

begin

 write('Enter any number in mm: '); readln(mm);

 cm := 10;

 m  := 1000;

 km := 1000000;

 if mm mod cm >= 0 then

   cm := mm div cm;

 if mm mod m >= 0 then

   m := mm div m;

 if mm mod km >= 0 then

   km := mm div km;

 writeln();

 writeln(mm, 'mm = ', cm, 'cm');

 writeln(mm, 'mm = ', m, 'm');

 writeln(mm, 'mm = ', km, 'km');

end.

Удачи)