Aires d'un nombre donné de cercles

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

begin
  writeln('combien de cercles ? ');
  readln(n);
  for i:=1 to n do
     begin
       writeln('rayon');
       readln(rayon);
       if rayon<0 then aire:=0
                  else aire:=pi*sqr(rayon);
       writeln('aire = ',aire);
     end;
end.