{ File: cerchio.pas }

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

program AreaCerchio;
{ 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 }