C++:

#include <iostream>
using namespace std;
double mm,cm,dm,m,dam,hm,km,x;
int main(){
    cin >> x;
    mm = x*1000;
    cm = x*100;
    dm = x*10;
    m = x;
    dam = x/10;
    hm = x/100;
    km = x/1000;
    cout << mm << "mm " << cm << "cm " << dm << "dm " << m << "m " << dam << "dam " << hm << "hm " << km << "km";
}

Pascal:

uses crt;
var x,mm,cm,dm,m,dam,hm,km:real;
begin
clrscr;
readln(x);
mm:=x*1000;
cm:=x*100;
dm:=x*10;
m:=x*1;
dam:=x/10;
hm:=x/100;
km:=x/1000;
writeln(mm:4:0,'mm ',cm:4:0,'cm ',dm:4:0,'dm ',m:4:2,'m ',dam:4:3,'dam ',hm:4:4,'hm ',km:4:5,'km');
readln;
end.

$\color{red}{\text{#Daoanhviet96}}$

uses crt;
var x:integer;
dm,cm,mm,n,dam,hm,km:real;
begin
clrscr;
write('nhap do cao cua Gia phuong:');readln(x);
dm:=x*10;
cm:=dm*10;
mm:=cm*10;
dam:=x/10;
km:=x/1000;
hm:=x/100;
writeln('do vi mm=',mm:2:4);
writeln('do vi cm=',cm:2:4);
writeln('do vi dm=',dm:2:4);
writeln('do vi dam=',dam:2:4);
writeln('do vi hm=',hm:2:4);
writeln('do vi km=',km:2:4);
readln;
end.

(mong dc 5*+hay nhất)