Area da circunferência

program areacircunferencia;
    var A, r:real;
  begin
    writeln('forneça o valor do raio');
    readln(r);
    A:=(PI*r*r);
    writeln('o valor da area da circunferencia é:', A);
  end.