c:/gdsf/web/fuentes_pascal/convertir_metros

PROGRAM EJER25B;

USES CRT;
VAR metros, pies : REAL;
BEGIN
{Para calcular la equivalencia entre pies y metros}
CLRSCR;
WRITELN ('INTRODUZCA LOS METROS PARA PASARLOS A PIES: ');
WRITELN (' ');
WRITE ('Metros: ');
READLN (metros);
pies := metros / (12 / 39.27);
{ 1 pie = 0.3048 metros}
{ 1 pulgada = 25.4 mm}
WRITE ('El equivalente en pies es de: ');
WRITE (pies : 3 : 2);
WRITE (' pies');
END.