PROGRAM cilindro;
USES CRT;
VAR radio, altura : REAL;
VAR area, volumen : REAL;
BEGIN
{Calcula el area y el volumen de un cilindro}
CLRSCR;
WRITELN ('CALCULA 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 * radio * radio) ) + ( (2 * 3.1416 * radio) * altura);
volumen := (3.1416 * radio * radio) * altura;
WRITE ('AREA DEL CILINDRO: ');
WRITE (area : 5 : 2);
WRITELN (' m2');
WRITE ('VOLUMEN DEL CILINDRO: ');
WRITE (volumen : 5 : 2);
WRITE (' m3');
END.