PROGRAM cono;
USES CRT;
VAR radio, lado, altura : REAL;
VAR area, volumen : REAL;
BEGIN
{Se utiliza para calcular el area y volumen de un cono}
WRITELN ('Para calcular el area y el volumen de un cono: ');
WRITELN (' ');
WRITE ('Escriba el valor del radio: ');
READLN (radio);
WRITE ('Escriba el valor del lado: ');
READLN (lado);
WRITE ('Escriba el valor de la altura: ');
READLN (altura);
WRITELN (' ');
area := (3.1416 * radio * lado) + (3.1416 * SQR (radio) );
volumen := (3.1416 * SQR (radio) * altura) / 3;
WRITE ('AREA DEL CONO: ');
WRITELN (area : 5 : 2);
WRITE ('VOLUMEN DEL CONO: ');
WRITE (volumen : 5 : 2);
END.