calcul de l'aire d'un cercle

program cercle;
const pi=3.14159;
var aire, rayon : real;

begin
     writeln('rayon');
     readln(rayon);
     aire:=pi*sqr(rayon);
     writeln('aire = ',aire);
end.