calcul de l'aire d'un cercle avec test d'erreur

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

begin
     writeln('rayon');
     readln(rayon);
     if rayon<0 then aire:=0
                else aire:=pi*sqr(rayon);
     writeln('aire = ',aire);
end.