Program multiple;
Uses WinCrt;
Var Km, mts, millas, cm, mm: real;
Begin
Writeln ('multiple');
Writeln ('Ingrese mts');
Readln (mts);
Km:= mts*1000;
Millas:= mts*2000;
cm:= mts/100;
mm:= mts/1000;
Writeln ('El resultado es: ', Km:5:3);
Writeln ('El resultado es: ', millas: 5:3);
Writeln ('El resultado es: ', cm: 5:3);
writeln ('El resultado es: ', mm: 5:3);
End.