{ File: cono.pas }

{ Scopo: uso di costanti
         uso di istruzioni di ingresso e uscita }

program VolumeCono;
{ Legge raggio di base e altezza di un cono e ne stampa il volume. }
const
  pi = 3.141592;
var
  raggio, altezza : real;

begin
  write('Raggio di base del cono ? ');
  readln(raggio);
  write('Altezza del cono ? ');
  readln(altezza);
  writeln('Volume : ', (pi*raggio*raggio*altezza)/3)
end. { VolumeCono }