Longitud_Circunferencia

=__**CALCULAR LA LONGITUD DE UNA CIRCUNFERENCIA**__= > > **Programa que la longitud del radio y calcula la longitud de la circunferencia.**

code format="pascal" PROGRAM CalculoLongitudCircunferencia ; VAR rRadio, rLongitud : Real ; BEGIN Writeln ('Calculo de la longitud de una circunferencia') ; Writeln ;

Write ('Escribe el valor del radio: ') ; ReadLn (rRadio) ;

rLongitud := 2 * PI * rRadio ;

Writeln ; Writeln ('La longitud de la circunferencia es: ', rLongitud:0:4);

ReadLn ; END. code