Cho tệp dulieu1.dat chứa 1 số là bán kính của 1 đường tròn. Hãy viết chương trình tính diện tích hình tròn đó. Ghi kết quả diện tích vào tệp ketqua1.e

program dientich;

uses crt;

var f,g:text;

      r:real;

begin

     Assign(f,’dulieu1.dat’);   reset(f);

     Assign(g,’ketqua1.equ’);   rewrite(g);

     if IOresult<>0 then

          begin

               rewrite(f);

               reset(f);

          end;

     readln(f,r);

     writeln(g,(r*r*3.14):2:2);

     close(f);  close(g);

end.