Lấy số liệu từ tệp cho trước (bài2.inp) .viêat chương trình tính diện tích hình tròn và viết vào tệp (bài2.out) Dòng 1 lấy N là số dòng của tệp Tên v

uses crt; 
var f,d:text; n,r,i:longint;
begin
   clrscr;
   assign(f,’input.pas’);reset(f);
   assign(d,’output.pas’);rewrite(d);
      readln(f,n);
      for i:=1 to n Do 
         begin
            readln(f,r);
            writeln(d,r*r*pi);         
         end;     
   close(d);
   close(f);
end.