{ File: cerchio.pas } { Scopo: uso di costanti uso di istruzioni di ingresso e uscita } program Cerchio; { Legge il raggio di un cerchio e ne stampa circonferenza e area. } const pi = 3.141592; var raggio : real; begin write('Raggio del cerchio ? '); readln(raggio); writeln('Circonferenza : ', 2 * pi * raggio); writeln('Area : ', pi * raggio * raggio) end. { AreaCerchio }