var r1,r2:integer ;
    S1,S2:interger;
  tep1, tep2 : text ;
begin 
assign(tep1,'dulieu.TXT);
assign(tep2,'KQ.TXT');
reset(tep1);
rewrite(tep2);
while not eof(tep1) do 
begin
readln(tep1,r1,r2);
if(r1>r2) then
S1:= sqr(r1)*3,14 ;
S2:=sqr(r2)*3,14;
else
S1:=sqr(r2)*3,14;
S2:= sqr(r1)*3,14 ;
writeln(tep2,S1,S2);
end ;
end.
Theo mình thì như thế này, nếu k hiểu thì có thể hỏi mình, sợ ghi giải thích vào làm bạn rối !