2.03.pas

   1 program Volumen_De_Esfera;\r
   2 \r
   3 var \r
   4         radio, PI: real;\r
   5 \r
   6 begin\r
   7         PI := 4 * arctan(1);\r
   8         write('Ingrese el radio (en cm): ');\r
   9         readln(radio);\r
  10         writeln('');\r
  11         writeln('El volumen de la esfera es: ', (4 / 3) * PI * radio * radio * radio: 8: 2, ' cm3.');\r
  12         writeln('La superficie es: ', 4 * PI * radio * radio: 8: 2, ' cm2.');\r
  13 end.\r