var 
           cv,dt,r:integer;
begin
           wrirteln('moi nhap ban kinh :');
            readln(r);
            cv := r*2*3.14;
            dt := r*r*3.14;
             writeln('dien tich hinh tron la: ',dt);
             writeln('chu vi hinh tron la :',cv);
              readln;
end.