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