Cau 1

program tinhvc;
uses crt;
var   f,f1,f2: text; r,cv,dt:real;
begin
 clrscr;
      assign(f,'d:\BK.txt');
      assign(f1,'d:\CV.dat');
      assign(f2,'d:\DT.dat');
      reset(f);
      rewrite(f1);
      rewrite(f2);
      read(f,r);
      if r >0 then
      begin
      dt:=3.14*r*r;
      cv:=2*r*3.14;
      end;
      writeln(f1,'Chu vi',cv);
      writeln(f2,'dien tich',dt);
      close(f1);
      close(f2);
 readln
 end.

cau 2:

program bai12;
    uses crt;
    var f,f1:text;  k,t:integer;
  begin
  clrscr;
   assign(f,'D:\DL.txt');
   assign(f1,'D:\KQ.txt');
  reset(f);
  rewrite(f1);
  t:=0;
  while not eof(f) do
  begin
  read(f,k);
  t:=t+sqr(k);
  end;
  write(f1,t);
  close(f1);
  readln
  end.