Aires d'un nombre indéterminé de cercles

program cercle;
const pi=3.14159;
var aire, rayon : real;
begin
  writeln('Pour arreter, entrez 0 comme rayon');
  writeln('rayon = ');
  readln(rayon);
  while rayon<>0 do
  begin
      if rayon<0 then aire:=0
                 else aire:=pi*sqr(rayon);
      writeln('aire = ', aire);
      writeln('rayon = ?');
      readln(rayon);
end;
writeln('Programme termine');
end.