{ 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 }