program MetrosAPulgadas;
uses crt;

var metros, pulgadas : real;
begin
    write ('Ingresa el valor de metros: ');
    readln (metros);
    pulgadas := metros/0.0254;
    writeln ('Valor de pulgadas: ', pulgadas:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.