Pascal para el Calculo del Volumen de una Esfera

PROGRAM ESFERA;
        USES WINCRT;
        VAR radio:REAL;
        VAR volumen:REAL;
BEGIN
        ClrScr;
        WRITELN ('PARA CALCULAR EL VOLUMEN DE LA ESFERA ESCRIBA EL RADIO: ');
        READLN (radio);
        volumen:=(4/3)*3.1416*(radio*radio*radio);
        WRITE ('VOLUMEN DE LA ESFERA: ',volumen:5:2);        
END.