Program Chu_vi_Dien_tich_hinh_tron;
Uses Crt;
Var r,dt,cv:real;
Begin
    Clrscr;
    Writeln(' Tinh dien tich va chu vi hinh tron:');
    Readln('Tinh dien tich va chu vi hinh tron');
    Write ('Nhap ban kinh r =');
    Readln(r);<br />    dt:=pi*r*r;<br />    cv:=2*pi*r;<br />    
    Writeln('Dien tich hinh tron la:',dt:6:2);
    Writeln('Chu vi hinh tron la:',cv:6:2);
    Readln;
End.