PROGRAM EJER19B;
USES CRT;
VAR radio, altura : REAL;
VAR area, volumen : REAL;
BEGIN
{Con este programa podremos calcular el area y el volumen
de un cilindro}
CLRSCR;
WRITELN ('PARA CALCULAR EL AREA Y VOLUMEN DE UN CILINDRO: ');
WRITELN (' ');
WRITE ('ESCRIBA EL RADIO- ');
READLN (radio);
WRITE ('ESCRIBA LA ALTURA- ');
READLN (altura);
WRITELN (' ');
area := 2 * (3.1416 * SQR (radio) ) + ( (2 * 3.1416 * radio) * altura);
volumen := (3.1416 * SQR (radio) ) * altura;
WRITE ('EL AREA DEL CILINDRO ES: ');
WRITELN (area : 6 : 2);
WRITE ('EL VOLUMEN ES: ');
WRITE (volumen : 6 : 2);
END.