PROGRAM circunf;
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.