km mts millas cm mm

program logicander;


Uses WinCrt;
Var
    km, mts, millas, cm, mm : real;
Begin


WriteLn ( 'Ingrese metros' );
ReadLn (mts);


km:= mts*1000;
millas:= mts*2000;
cm:= mts/100;
mm:= mts/1000;


WriteLn ( 'El resultado en kilometros es: ', km:3:3);
WriteLn ( 'El resultado en millas es: ', millas:3:3);
WriteLn ( 'El resultado en centimetros es: ', cm:3:3);
WriteLn ( 'El resultado en milimetros es: ', mm:3:3);


end.