Menú de Sistemas de Conversión

Program logicander;


Uses WinCrt;
Var
    kilogramos, toneladas, gramos, kilometros, centimetros, litros, onzas, metros, mililitros : real;
    opc : integer;
Begin


Writeln ( 'Menu de Sistemas de Conversion' );
WriteLn ( '1- Medidas de Peso' );
WriteLn ( '2- Medidas de Volumen' );
WriteLn ( '3- Medidas de Distancia' );
ReadLn (opc);


If opc=1 then
Begin
WriteLn ( 'Submenu de Medidas de Peso' );
WriteLn ( '1-Gramos a Kilogramos' );
WriteLn ( '2-Gramos a Toneladas' );
ReadLn (opc);


    If opc=1 then
    Begin
    WriteLn ( 'Gramos a Kilogramos' );
    WriteLn ( 'Ingrese gramos' );
    ReadLn (gramos);
    kilogramos:=gramos*0.001;
    WriteLn ( 'Gramos en kilogramos son: ', kilogramos:5:3);
    end;


    If opc=2 then
    Begin
    WriteLn ( 'Gramos a Toneladas' );
    WriteLn ( 'Ingrese gramos' );
    ReadLn (gramos);
    toneladas:=gramos*0.000001;
    WriteLn ( 'Gramos en toneladas son: ', toneladas:5:3);
    end;
   end;
    
If opc=2 then
Begin
WriteLn ( 'Submenu de Medidas de Volumen' );
WriteLn ( '1-Litros a Mililitros' );
WriteLn ( '2-Litros a Onzas liquidas' );
ReadLn (opc);


    If opc=1 then
    Begin
    WriteLn ( 'Litros a Mililitros' );
    WriteLn ( 'Ingrese litros' );
    ReadLn (litros);
    mililitros:=litros*1000;
    WriteLn ( 'Litros en mililitros son: ', mililitros:5:3);
    end;


    If opc=2 then
    Begin
    WriteLn ( 'Litros a Onzas liquidas' );
    WriteLn ( 'Ingrese litros' );
    ReadLn (litros);
    onzas:=litros/0.0295;
    WriteLn ( 'Litros a Onzas líquidas son: ', onzas:5:3);
    end;
    end;
    
If opc=3 then
Begin
WriteLn ( 'Submenu de Medidas de Distancia' );
WriteLn ( '1-Metros a Kilómetros' );
WriteLn ( '2-Metros a Centímetros' );
ReadLn (opc);


    If opc=1 then
    Begin
    WriteLn ( 'Metros a Kilometros' );
    WriteLn ( 'Ingrese metros' );
    ReadLn (metros);
    kilometros:=metros*0.001;
    WriteLn ( 'Metros en Kilometros son: ', kilometros:5:3);
    end;


    If opc=2 then
    Begin
    WriteLn ( 'Metros a Centimetros' );
    WriteLn ( 'Ingrese metros' );
    ReadLn (metros);
    centimetros:=metros*100;
    WriteLn ( 'Metros a Centimetros son: ', centimetros:4:3);
    end;
    end;


end.