Pascal Área y Longitud de una Circunferencia

PROGRAM AREACIRCU;

        USES WINCRT;

        VAR radio:REAL;

        VAR longitud,area:REAL;

BEGIN

        radio:=4;

        longitud:=2*3.1416*radio;

        area:=3.1416*radio*radio;

        ClrScr;

        WRITE ('LONGITUD DE LA CIRCUNFERENCIA:'); WRITELN

    (longitud:5:2);

        WRITE ('AREA DE LA CIRCUNFERENCIA:');    WRITE (area:5:2);

END.

PROGRAM EJER5B;

        USES CRT;

        VAR radio:REAL;

        VAR longitud,area:REAL;

BEGIN

        {Este programa calcula la longitud y el area de una

    circunferencia}

        ClrScr;

        WRITELN ('LONGITUD Y AREA DE UNA CIRCUNFERENCIA');

        WRITELN (' ');

        WRITE ('Escriba el radio: ');         READLN (radio);

        WRITELN (' ');

        longitud:=2*3.1416*radio;

        area:=3.1416*radio*radio;

        WRITE ('LONGITUD DE LA CIRCUNFERENCIA: '); WRITELN

    (longitud:5:2);

        WRITE ('AREA DE LA CIRCUNFERENCIA: ');     WRITE (area:5:2);

END.